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Einleitung 

Wieder hat Sinclair Research sich selbst übertroffen - der ZX 
Spectrum stellt einen gewaltigen Fortschritt gegenüber den frü¬ 
heren Sinclair-Computern dar. Er ist nicht nur preiswerter als ein 
Original-ZX80 mit zusätzlichem Speicher, sondern besitztauch 
Eigenschaften, die man sich noch vor zwei Jahren bei einem 
Computer dieser Größe und Preislage nicht einmal hätte träu¬ 
men lassen. Die Technik hat gegenüber dem ZX81 bedeutsame 
Fortschritte gemacht, mit einer zuverlässigen, schnellen Kasset- 
ten-Schnittstelle, keinem Bildschirmzucken und einem Key¬ 
board, das viel leichter zu gebrauchen ist. 

Das Buch, das Sie in Händen halten, ist eine ähnliche Entwicklung 

- das ZX80 Pocket Book sollte eine vom Handbuch hinterlasse- 
ne Lücke füllen, während das ZX81 Pocket Book noch mehr auf 
die Fähigkeiten der ZX-BASIC-Sprache einging. Dieses Buch ist 
ein weiterer Schritt nach vorn. Es befaßt sich mit einem viel grö¬ 
ßeren Gebiet und liefert Programme, die Spaß machen, die ernst 
gemeint sind, die einem etwas beibringen oder auch nur nütz¬ 
liche Instrumente sind. 

Obwohl Spectrum-BASIC eine erweiterte Version von ZX81- 
BASIC ist, habe ich keines der Programme aus den früheren Bän¬ 
den übernommen, weil die zusätzlichen Befehle zu einer ganz 
neuen Art von Programmpräsentation führen. Viele ZX81-Be¬ 
sitzer werden zweifellos zum Spectrum aufsteigen und in diesen 
Programmen nur neues Material vorfinden. 

Das ist alles möglich geworden durch Aufpassen und Zuhören 

- ich habe viele Briefe bekommen, die von einer Art Programme 
mehr, von einer anderen weniger verlangen. Zu Anfang wün¬ 
schen sich die meisten Leute Spaß und Spiele - sogar für diesen 
Zweck allein bietet der Spectrum einen großartigen Gegenwert 
für sein Geld - aber wenn die Neuheit der Spiele verblaßt, wird 
der Wunsch nach mehr Wissen größer. Wie arbeitet ein Com¬ 
puter? Was ist ein Mikrocomputer eigentlich genau? Wie nutze 
ich Maschinencode? 

Die Antworten auf diese Fragen werden Türen öffnen für viele 
lange Abende, aber es verschafft ein enormes Gefühl der Befrie¬ 
digung, einen Computer dabei zu beobachten, wie er mit seinem 
ganzen Können Programme fährt. 
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Auf diesen Seiten habe ich versucht, Ihnen Spaß und Spiele für 
sofortigen Genuß zu liefern, ein paar Nutzprogramme, um Ihr 
eigenes Programmieren ein bißchen zu vereinfachen, Winke 
und Tips, um Ihnen einige der Merkmale zu zeigen, die in den 
Sinclair-Büchern nicht erklärt werden, und einen Abschnitt über 
den Gebrauch von Maschinencode, um Ihnen auch für die Zu¬ 
kunft Befriedigung zu verschaffen. 

Der Spectrum besitzt Einrichtungen für hochauflösende Grafik, 
Farbe und Ton, und das wiederum bedeutet, daß der Bedarf an 
verbesserter Präsentation der Programme steigt. Das führt zu 
einem kleinen Dilemma, weil größere Programme für Sie mehr 
Tipparbeit bedeuten. Um dem gerecht zu werden, habe ich so¬ 
wohl kleine als auch große Programme aufgenommen, damit Sie 
je nach Laune die Menge Eintippen anpacken können, die gerade 
recht ist. 

Mir ist stets bewußt gewesen, daß das Eintippen und Fahren von 
Spielen nicht Programmieren ist. Ich hoffe, Sie werden aus dem 
Buch lernen und ein paar von den Ideen als Grundlage für Ihre ei¬ 
genen Programme zu verwenden. Wenn Sie sich mit Program¬ 
mieren in Maschinencode befassen, wird der zweite Abschnitt 
des Buches viele nützliche Instrumente und Programmiertips 
bieten - manche können sogar verwendet werden, ohne daß 
man ihren Zweck verstehen muß. 


Wie dieses Buch produziert worden 
ist 

Wir stellen zuerst eine funktionierende Version jedes Pro¬ 
gramms her und testen es bis zur Zerstörung. Um dafür zu sor¬ 
gen, daß der funktionierende Code vom Spectrum Sie mit hun¬ 
dertprozentiger Sicherheit erreicht, haben wir für den Spectrum 
ein Interface gebaut, mit dem er an unseren Textautomaten an¬ 
geschlossen wird. Programme werden so übertragen und gelan¬ 
gen druckfrisch zu Ihnen. 

Nehmen wir nun einmal an, daß Sie, wie das manchmal vor¬ 
kommt, Ihr Programm eingeben, auf RUN drücken - und nichts 
passiert. Erstens: Keine Panik. Zweitens: Listen Sie mit dem 


8 


Drucker oder auf dem Bildschirm auf und vergleichen Sie sehr 
gründlich mit dem Buch; bitten Sie außerdem jemand, es zusam¬ 
men mit Ihnen durchzugehen. Wenn dabei das Problem nicht er¬ 
kennbar wird, lesen Sie das Kapitel über Debugging (Fehlersu¬ 
che), das Ihnen vielleicht hilft, den Bereich festzustellen, wo das 
Problem auftritt. Falls alles umsonst ist, schreiben Sie an mich und 
schildern Sie mir das Problem. Wenn Sie eine Kassette Ihrer Ver¬ 
sion des Programms mitschicken, ist das nützlich, ebenso eine 
Drucker-Auflistung des Programms. Wer frankierte Briefum¬ 
schläge mit Rückadresse beilegt, wird bevorzugt abgefertigt! 


Programm Präsentation 

Ich hoffe, Sie werden erkennen, daß die Programme auch Pro¬ 
grammiermethoden veranschaulichen und Ihnen Anregungen 
liefern, Ihre eigenen zu schreiben, weil das der Punkt ist, wo ein 
Homecomputer ein Videospielgerät übertrifft. Natürlich ist es 
schön, gleichzeitig auch etwas Spaß an der Sache zu haben. Aus 
diesem Grund gibt es eine größere Anzahl fröhlicher Program¬ 
me. 

Alle Programme sind mit ausführlichen Anmerkungen ausgestat¬ 
tet, damit Sie bei jedem Schritt genau sehen können, was vor¬ 
geht. Meine Kommentare stehen neben den Programmlistings in 
folgender Weise: 

1100 LET x = 97 (das ist mein Kommentar). 

Sie können Sie lesen, während Sie das Programm eingeben oder 
nachher studieren, wenn Sie Gelegenheit gehabt haben, sich an¬ 
zusehen, was das Programm leistet. Versuchen Sie nicht, die 
Kommentare mit in den Computer einzugeben. Beispiel: In der 
obigen Zeile ist das letzte Zeichen der Zeile, das einzugeben wä¬ 
re, die Ziffer 7. 


Kassetten 

Die Programme sind auch auf Kassette erhältlich. 
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Das große Feuer 
von London 

Wenn Sie je nach der Gelegenheit gesucht haben, die Uhr zu¬ 
rückzudrehen, hier ist Ihre große Chance. Nach aller Wahr¬ 
scheinlichkeit wird der Strom der Zeit, was den Ausgang dieses 
Spiels betrifft, nicht anders fließen, aber es macht Spaß, den 
Brand löschen zu wollen, der halb London verwüstete. 

Sie erhalten einen Stadtplanauszug der Pudding Lane nah an der 
Themse - der ideale Ort, um Ihren Eimer zu füllen! Siegehen die 
Botolph Lane hinunter und hören jemand "Feuer!” schreien. 
Blitzschnell stürzen Sie mit dem Eimer in der Hand zur Themse, 
um Hilfe zu leisten. Wenn Sie nicht schnell genug sind, breitet 
sich der Brand aus - sind Sie aber zu schnell, kippt das ganze 
Wasser aus dem Eimer. 

Sie können nur den Straßen folgen (hier und dort aber mal eine 
Ecke abkürzen) und über die Asche der Gebäude gehen, wo das 
Feuer gelöscht worden ist. Wenn Sie großes Pech haben, kön¬ 
nen Sie keines der brennenden Häuser erreichen und müssen 
einfach warten, bis das Feuer in Reichweite kommt. 

Der Eimer kann nur gefüllt werden, wenn man direkt an der 
Themse steht, brennende Häuser sind nur zu löschen, wenn 
man vor ihnen steht Ein (sehr großer) Eimer kann acht Brände 
löschen - der Inhaltmesser in der oberen linken Bildschirmecke 
zeigt genau an, wieviel Wasser der Eimer enthält. 

Sie bewegen sich durch Drücken der Cursortasten (5, 6,7 und 
8), füllen den Eimer mit Taste ? und gießen das Wasser aus 
mit Taste ‘g’. 

Der einzige Haken: Sie haben 120 Sekunden Zeit, die Aufgabe zu 
erfüllen - die Holzhäuser fangen so schnell zu brennen an und 
Funken von brennenden Gebäuden werden vom kräftigen 
Wind weit getragen. 


1 REM Great Fi re o-f London 

2 REM ©1982 F'hipps Associates 
10 RESTORE : RANDOMIZE : CLEAR 
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100 GO SUB 7000 
1000 LET 1s=1imit 
1010 GO SUB 8000: GO SUB 8300 
1020 PRINT #f;AT 0,0;CHR* 145;" 
zeigt den 1.Brand"Fortsetzung : 
Taste druecken"; 

1030 IF NOT LEN INKEYT- THEN GO T 
0 1030 

1040 60 SUB 7800 

1100 POKE 23672,0: POKE 23673,0 

2000 GO SUB 7500: IF s<1 OR NOT 

a THEN GO TO 5000 

2005 IF tm-s>4 THEN GO SUB 7800 

2010 LET m^= INKEY«:: IF NOT LEN m 

$■ THEN GO TO 2500 

2015 LET dm=m~lm: LET lm=m 

2020 LET d:< = (yx > 1) * (m$= "5"> *-1+( 

yx<31)*(m*="8") 

2030 LET d v=(yy<20)*(m*="6"> + (yy 
>l)*<m$="7">*-l 
2040 LET c=ATTR (vy+dy,yx+dx) 
2050 IF c-INT (c/8)*8<>road THEN 
GO TO 2500 

2060 PRINT AT yy,y:<; PAPER clr; 
INK clr; OVER t;y* 

2070 LET yy=yy+dy: LET yx=yx+dx 
2080 PRINT AT yy, yx; PAPER clr; 
INK clr; OVER t; y$ 

2100 IF m$< >"f"'THEN GO TO 2200 
2110 LET b=water: GO SUB 7600: I 
F NOT v THEN GO TO 2500 
2120 FOR y=0 TO 7: PRINT AT y,l; 

INK water; PAPER bg;CHR$ 144: N 
EXT y 

2130 LET w=S 
2140 GO TO 2500 

2200 IF m*<>"p" THEN GO TO 2300 
2230 FOR W“W~1 TO 0 STEP -1 
2235 PRINT AT 7-w,1; PAPER bg;" 

II 

2240 LET b=-f i res GO SUB 7600: IF 
v THEN PRINT AT y,x; INK road; 
PAPER “f g; “ H : LET m#= ,, GLUG. “ : GO 
SUB 7700: LET q=q+l: LET a=a-l 
2250 NEXT w: LET w=0 
2260 GO TO 2500 

2500 LET x =RND*30>dm: IF x AND w 
THEN LET w*=w-l: PRINT AT 7-w,l; 


Anweisungen 
Zeitlimit 
Plan zeichnen 


auf Taste warten 

Meldungszeile frei 
Uhr in Gang setzen 
Zeit überprüfen 

Meldungen gelöscht 

nach 4 sec. 

auf Aktion prüfen 

Zeit seit letzter 
Bewegung horizontal 

Bewegung vertikal 

Bildschirm prüfen 
Bewegung zulässig? 

Eimer bewegen 


prüfen -füllen¬ 
ist Wasser da? 

Eimer füllen 

als voll setzen 
fortsetzen 
prüfen -gießen- 
w Einheiten gießen 

Meßgerät 
zurücksetzen 
Brände löschen 
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PAPER clr; " " 

2600 LET r- (1imit-s)/Iimit 
2602 IF a=—1 THEN LET a=0: LET y 
=ply: LET x=plx: 60 TO 2700 
2605 IF RND>EXP (a--4> THEN GO TO 
2000 

2610 LET x = 1 +1NT (plx-15*r+RND*3 
0*r) : LET y--l + INT (ply-r*10+RND* 
20*r) 

2620 IF x<0 OR y<0 OR x>31 OR y> 

19 THEN GO TO 2000 

2630 LET c=ATTR (y,x): IF c-INT 

(c/8)*8<>fq THEN GO TO 2000 

2700 PRINT AT y,x; INK Tire; PAP 

ER road;-f$: LET m*="FEUER!!!": G 

0 SUB 7700 

2720 LET a=a+l 

2999 GO TO 2000 

5000 REM end qame 

5002 FOR x =30 TO -30 STEP -1: BE 

EP .005,x: NEXT x 

5005 IF LEN INKEY* THEN LET m*=" 
OK, OK, heb den Finqer auf!": GO 

SUB 7700: GO TO 5005 

5006 GO SUB 7800: PAUSE 50 
5010 IF a>l THEN GO TO 5100 
5020 PRINT #f;AT 0,0; FLASH t:"B 
RAVO!"; FLASH f;" Du hast alles 
geloescht!"'"London ist gerettet 

i ii 


Brand radius 

Brand wird größer 
neuer Brandort 


Hausnummer brennt 
Wiederholungsschleife 

Lärm Ende 


Meldungszeile frei 


5030 GO TO 5500 

5100 PRINT #f;AT 0,0;"Du hast "; 
q;" Feuer geloescht"'"aber ";a;" 
brennen lassen!" 

5110 IF a<10 THEN PRINT #f;AT 2, 
0;"London wird das ueberleben!" 
5120 IF a>=10 AND a<=20 THEN PRI 
NT #f;AT 2,0;"London ist voellig 
ruiniert!" 

5130 IF a>20 THEN PRINT #f;AT 2, 
0;"London? Nie gehoert davon." 
5500 PAUSE 4e4 

5510 LET m*="Noch ein Spiel?": G 

0 SUB 9000: IF OHR* CODE a*="J" 

THEN GO TO 1000 

5520 GO TO 9999 

7000 REM initialise 

7010 DEF FN h(x)=INT (x/256) 
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7020 DEF FN 1(x)*x-256*FN h<x) 

7030 LET t=l: LET f=0 

7040 LET s=f 

7050 Gü SUB 8100 

7060 LET limit=120 

7100 PAPER 6: BORDER 6: INK 2: C 

LS : GO SUB 7300 

7110 PRINT CHR* 144; INK f;“ Da 
s Grossfeuer von London "; INK 
2;CHR# 144 
7120 GO SUB 7300 

7130 PRINT AT 4,0;" Du hast ";li 
mit;" Sekunden Zeit, um"'"das Fe 
uer zu loeschen, das in"'"Puddin 
g Lane ausgebrochen ist."'"Aber 
es greift um sich..." 

7140 PRINT "Benutze zur Bewegung 
die Kursor--" “ "Tasten , " "f" " , um 

den Eimer zu"'"fuel1en, und ""p 
"", um ihn am"'"Brandherd auszul 
eeren." 

7150 PRINT "Ungluecklicherweise 
schwappt"'"desto mehr Wasser aus 
dem Eimer,"'"je schneller Du 1a 
eufst.Die"'"Anzeige oben links z 
eigt Dir,"'"wieviel Wasser Du no 
ch hast." 

7160 PRINT "Du kannst den Eimer 
nur fuellen"wenn Du direkt an 
der Themse"'"stehst, und nur Fe 
uer in Dei="'"ner unmittelbaren 
Umgebunq"'"1oeschen «" 

7170 LEf m#—"Fortsetzungs Taste 
druecken": G0 SUB 9000 
7180 CLS s PRINT "Ein Eimer kann 
bis zu acht"'"Feuer loeschen.Ac 
hte darauf,"'"wieviel Wasser Du 
noch hast." 

7190 PRINT "Du kannst nur auf de 
n Strassen"'"und der Asche der v 
erbrannten"'"Haeuser 1 aufen, dar 
fst aber"'"Ecken schneiden." 

7200 PRINT "Die Geschichte geht 
ihren eige="'"nen Gang - aber hi 
er hast Du"'"eine reelle Chance, 
sie zu"'"aendern..." 

7210 G0 SUB 9000 
7220 RETURN 


Grafik definieren 
Zeitlimit 2 Minuten 
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PRINT CHR* 1 


7300 INK 2: PAPER 6: 

7310 FOR x-1 TO 32: 

44; : NEXT :< 

7320 RETURN 
7500 F\‘EN show time 
7505 LET m=PEEK 23672+256*PEEK 2 
3673 

7510 LET s=limit-INT (m/50) 

7520 PRINT AT 21,28; INK clr; PA 
PER fq; INVERSE t;sj" "; 

7530 IF sOls THEN BEEP .10,-8: 
LET 1s—s 
7540 RETURN 

7600 REM check Tor object 
7605 GO SUB 7500 

7610 FOR x =yx-1 TO yx + 1: FOR y=y 
y-1 TO yy+1 

7620 IF yOyy OR xOyx THEN LET 

c=ATTR (y,x): LET v=(b=(c-INT (c 

/8>*8>): IF v THEN RETURN 

7630 NEXT v: NEXT x: LET v=0 

7640 RETURN 

7700 REM messages 

7710 GO SUB 7800 

7720 PRINT #f;AT 1,0;m*; 

7730 LET tm=s 

7740 RETURN 

7800 REM clear message 

7810 PRINT #-f ; AT 0,0,,,, 

7820 RETURN 
8000 REM draw map 

8005 LET bg=4: LET fg=0: LET roa 
d=6: LET water=5: LET clr=8: LET 
■f i re=2 

8010 PAPER bg: INK fg: BORDER bg 
: CLS 

8020 INK water: FOR y=0 TO 23: F* 
LOT 0,y: DRAW 255,0: NEXT y 
8030 INK road: PAPER bg 
8040 FOR x =32 TO 47: F'LQT x,0: D 
RAW 0,175: NEXT x 

8050 FOR y=24 TO 39: PLOT 0,y: D 
RAW 255,0: NEXT y 

8060 FOR y=120 TO 135: PLOT 255, 

y: DRAW -208,0: NEXT y 

8070 FOR x—168 TO 183: PLOT x,17 

5: DRAW 0,-96: NEXT x 

8080 FOR x =96 TO 111: PLOT x,40: 


Zähler für Ticken 
verbleib. Sekunden 


jede Sekunde ein Ton 


Zeit prüfen 
Umgebung absuchen 


v=0 ist nicht gefunden 

zeig m$ auf Zeile 23 
Zeile 23 frei 
zeige m$an 
Zeit bewahren 
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DRAW 0,80: NEXT x 
8090 FOR x=0 TO 15: PLOT x+240,4 
0: DRAW ,64+x: NEXT x: FOR 

y=0 TO 15: PLOT 48,y+104: DRAW 
207,-64: NEXT y 
8095 RETURN 

8100 REM special characters 
8105 DATA 3 

8110 DATA "a",170,85,170,85,170, 
85,170,85 

8120 DATA "b",195,231,126,60,60, 
126,231,195 

8130 DATA "c",24,36,66,255,255,1 
26,60,60 
8200 READ n 

8210 FOR ;< = 1 TO n: READ c$: FOR 
v=0 TO 7: READ r: POKE USR c$+y, 
r: NEXT y: NEXT x 
8220 RETURN 
8300 REM tidy screen 
8305 LET p 1 s< = 11: LET ply=13 
8310 PRINT AT ply,plx; INK 2;CHR 
145 

8320 LET y*=CHR$ 146: LET f$=CHR 
$■ 144 

8330 LET yx=22: LET yy=0 
8340 PRINT AT yy,yx; OVER t;y$ 
8350 PRINT AT 21,23; INK clr; PA 
PER fq; INVERSE t;"Time:"; 

8360 PRINT AT 0,0; INK -fg;" >";AT 
7,0;">" 

8370' LET dm=f: LET lm=-f: LET tm= 
•f: LET w=f: LET s=f: LET q=0: LE 
T a=0 

8380 LET a=-l 
8390 RETURN 
9000 REM input 

9010 INPUT <m*>;" "; LINE a$: LE 
T end=NOT LEN af 

9020 FOR x — 1 TO LEN aT: LET at=(x 
) =CHR-T (CODE ai- (x > -32* (a$ (x ) >- " a 
")): NEXT x 
9030 RETURN 

9999 PAPER 7: BORDER 7: INK 0: C 
LS : STOP 
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Kleine Versuche 


Ein Nachteil bei einem Computer mit16K RAM ist der, daß alle 
Programme dazu neigen, ziemlich lang zu werden. Damit Ton 
und Bild eindrucksvoll werden, nimmt der Code einen Umfang 
an, den man einem normalen Menschen kaum zumuten kann. 
Hier haben wir eine Auswahl kleinerer Programme für den An¬ 
fang. Sie rufen keine schönen Bildschirmdisplays oder wunder¬ 
bare Sonaten hervor, aber jedes ist anders. Sie finden einige 
Spiele, einen Quiz, ein Lehrprogramm für Schüler und anderes 
mehr. 

Ich habe die Bemerkungen auf ein Mindestmaß beschränkt, weil 
es nirgends kompliziert wird. 

Zielscheibe 


Sie laufen an einem stehenden Ziel vorbei und müssen versu¬ 
chen, es zu treffen. So einfach ist das gar nicht! Sie können schie¬ 
ßen mit der Taste “8". Sie erscheinen an der linken oberen Ecke, 
das Ziel befindet sich rechts. Drücken Sie nur ab, wenn Sieglau¬ 
ben, dem Ziel genau gegenüber zu sein. 

10 LET n=0: LET m=0 
20 LET t=INT (RND*22>: LET :< = I 
NT <RND*6>+26 

30 PRINT AT t,x;"O" 

100 LET n=n+i 
110 FOR v=0 TO 21 
120 IF y THEN PRINT AT y-1,0;" 

II 

130 PRINT AT y, 0; " > "; 

140 IF INKEYS« 11 8" THEN GO TO 20 
O 

150 NEXT y 

160 PRINT AT 21,0;" " 

170 GO TO 100 

200 FOR z=0 TO x: PRINT AT y,z; 

NEXT z 

210 IF y=t THEN GO TO 300 
220 FOR z=0 TO x: PRINT AT y,z; 

" "j: NEXT z 
23Ö LET fn«(n+l 
240 GO TO 100 


Ziel anzeigen 

ein Leerraum 

sich anzeigen 
feuern? 

ein Leerraum 

wiederholen 

schießen 

Ziel getroffen? 
leere Spur 

Fehlschußzähler 
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300 PRINT AT t,PRINT AT 
19,0;"Du hast es erwischt!" 

310 PRINT "Du brauchtest ";m;" 
Schuss in " , "den Runden" 

320 INPUT "Nochmal? LINE at: 
IF CHR* CODE a*="j" THEN RUN 


Enigma-Variationen 

Dieses Programm verwandelt jeden String in einen Geheim¬ 
code, den nur Sie entschlüsseln können. Der Schlüssel kann jede 
Zahl sein, die Sie wünschen. Sie müssen sie vorher eingeben. 
Dann können Sie mit dieser Chiffre Mitteilungen ver- oder ent¬ 
schlüsseln. Jeder Schlüssel erzeugt einen anderen Code, so daß 
Sie, wenn Gegner einen Code knacken, einfach einen anderen 

Schlüssel nehmen. 

* 

Das Programm wird aber dadurch so großartig, daß beim Ver¬ 
schlüsseln des Strings eine variable Zufallsmethode verwendet 
wird. Wenn Sie "AAAA" eingeben, erhalten Sie also nichtfür je¬ 
des Vorkommen von "A" dieselben vier Buchstaben. Dadurch 
ist der Schlüssel kaum zu knacken. 

10 INPUT "Schluessel ";k 
20 RANDOMIZE k: LET s=0 
30 LET a$="Verschluesseln (V) 

Entschluesseln (E>" 

: GO SUB 9000: IF Ende THEN GO T 
0 9999 

40 IF OHRT- CODE a*="E" THEN LE 
T s=l: PRINT "Wir entsch1uesseln 

II ' 

50 LET wt=" ABCDEF6HI JKLMNOF'QRS 
TUVWXYZ 0123456789t#.,?": LET w= 

LEN w* 

60 LET at="Te:<t eingeben:": GO 
SUB 9000: IF Ende THEN GO TO 99 
99 

70 LET a=LEN a* 

80 FOR n=l TO a 
90 LET x$-a$(n) 

100 GO SUB 9300 

110 IF s=l THEN GO TO 160 

120 LET y = (INT (RND*w) ) +1 +:< 
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130 IF >>w THEN LET y=y-w: 60 T 
0 130 

140 PRINT w$<y>! 

150 NEXT n: GO TO 60 

160 LET y=x — (INT <RND*w)+l> 

170 IF y<1 THEN LET y=v+w: GO T 
0 170 

180 GO TO 140 
9000 REM Zeileneingabe 
9010 INPUT (a*+" "); LINE a$: LE 
T Ende=NOT LEN a$ 

9020 FOR x = l TO LEN a* 

9030 LET a$(x)=CHR$ (CODE a$ (:•;)- 
32*(a$( x )>="a" AND a$ <x><®"z ”)> 
9035 NEXT x 
9040 RETURN 

9300 FOR x = l TO LEN w$-LEN x$+l: 

IF !<$=w$(;< TO x+LEN xf-l) THEN 
RETURN 

9320 NEXT x: LET x=w 
9330 RETURN 


Quizspiel 

Haben Sie sich schon mal als berühmten Quizmaster gesehen? 
Mit diesem Programm können Sie anderen Leuten Fragen 
zum Beantworten aufgeben. Der Spectrum übernimmt die gan¬ 
ze Arbeit. So prüft er etwa, ob die Antwort richtig ist, und führt 
Buch über den Punktestand. 

Das Programm enthält fünf Probefragen, damit Sie sehen, wie Sie 
Ihr eigenes Quizprogramm zusammenstellen können. Geben 
Sie die Zahl der Fragen in Zeile 1010 ein. Die Fragen und Antwor¬ 
ten erscheinen dann in den folgenden Zeilen. Es spielt keine Rol¬ 
le, wie die Antwort eingegeben wird, das Programm erzwingt 
stets Übereinstimmung in Großbuchstaben. Die Antwort 
braucht nur in einem Stringenthalten zu sein, weil das Programm 
die ganze Antwort nach dem richtigen Wort absucht. Den inne¬ 
ren Ablauf dieser Routine findet man im späteren Abschnitt 
‘Subroutinen’ erklärt. 
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10 REM quiz 
20 RESTÖRE 1000 
30 READ n 
40 DIM s (2) 

100 FDR q=1 TO n 

105 PRINT TAB 10;"*** QUIZ ***" 
110 READ qt-,a$: PRINT AT 10,0; q 
T 

120 LET u$=a$: GO SUB 9020: LET 

X = 

130 LET a$="Antwort:GO SUB 9 
000 

140 LET w$=a$: GO SUB 9300 
150 LET s= (x< >0) +1 
160 LET s(s)=s(s)+l 
170 IF s=2 THEN PRINT AT 21,0;" 
Richtiq!": GO TO 200 
180 PRINT AT 20,0;"Falsch. Die 
Antwort ist:"'TAB 4;u$ 

200 LET a$="Druecke ENTER": GO 
SUB 9000 
210 CLS 
220 NEXT q 

300 PRINT AT 10,0;"Von " ;n;" Fr 
agen," 

310 PRINT " hast du ";s(2>;" ri 
chti g , " 

320 IF NOT s(1) THEN PRINT " Da 
s ist nicht schlecht!" 

330 IF s(l> THEN PRINT " und "; 
s(l) ; " falsch." 

340 STOP 

1000 DATA 5: REM Nummer der Frag 
en 

1010 DATA "Wie heisst die Haupts 
tadt von Frankreich?","Paris" 
1020 DATA "Wie viele Beine hat. e 
ine Spinne?","8" 

1030 DATA "Wie hiess Shakespeare 
mit Vor— namen? (keine Abkuerz 
ungen!)","Wi11iam" 

1040 DATA "Wie ist der Name des 
ersten Sinclair-Computers?", 

" MK14" 

1050 DATA "Was ist des Name des 
Mikro-Chip im Spectrum","Z80" 
9000 REM Zeileneingabe 
901.0 INPUT <a$+" "); LINE af-: LE 


Fragentabelle 
Zahl der Fragen 
Punkte 


Frage anzeigen 

richtige Antwort 
umwa ndeln 


Antwort prüfen 
ist sie richtig? 
Punktestand 
ergänzen 
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T ende=NOT LEN a# 

9020 FÜR x = l TO LEN a#: LET a#(x 
)=CHR# (CODE a# (:<) -32* (a# (:< ) >="a 
" AND a# ( >< ) < m" z " ) ) : NEXT x 
9030 RETURN 

9300 REM x=instr(w$,x$) 

9310 FOR x = l TO LEN w#—LEN '.<*+1: 

IF x$=w$(x TO x+LEN x#~l> THEN 
RETURN 

9320 NEXT x: LET x=0 
9330 RETURN 


Reaktionstester 

Wenn Sie den Verdacht haben, daß jemand alt und zittrig wird - 
dieses Programm kann es entweder bestätigen und widerlegen. 
Setzen Sie das ahnungslose Opfer, Verzeihung - die Person vor 
dieses Programm, um festzustellen, wie lange sie braucht, um auf 
die Aufforderung zu reagieren, eine Taste zu drücken. Eine 
Reaktionszeit von 0.25 Sekunden ist ungefähr Durchschnitt, län¬ 
ger als 0.5 ist mehr als schwach, und man sollte die Person dann 
nicht an ein Lenkrad lassen! 


10 PRINT TAB 8;"Reaktionsteste 
r" 

20 PRINT AT 20,0;"Druecke eine 
Taste wenn du ""JETZT"" si 

ehst" 

100 PAUSE 100+INT (RND*250) 

110 IF LEN INKEY# THEN GO TO 20 

0 

120 PRINT AT 10,13;"** JETZT ** 

(I 

130 POKE 23673,0: POKE 23672,0 
140 IF NOT LEN INKEY# THEN GO T 
0 140 

150 LET t=PEEK 23672+256*PEEK 2 
3673 

160 LET t=t/50 

170 PRINT OVER 0;AT 21,0;"Du br 
auchtest ";t; " Sekunden." 

175 IF LEN INKEY# THEN 60 TO 17 


auf Schwindler 
prüfen 


Uhr in Gang setzen 
auf Taste warten 

neue Zeit holen 

in Sek. umrechnen 
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180 INPUT "Druecke ENTER..."; L 
INE a* 

190 CLS ; GO TO 10 

200 PRINT AT 18,14; INVERSE 1;" 

BETRUEGER "; INVERSE 0 

210 PRINT AT 21,0,, 

220 GO TO 180 


Anagramme 

Von diesem Programm werden Kreuzworträtselliebhaber be¬ 
geistert sein - es erzeugt Anagramme von jedem eingegebenen 
Wort. Die angezeigten Ergebnisse dienen eigentlich dazu, Sie an¬ 
zuregen, daß Sie Wörter sehen, die man bilden kann, weil ein 
Wort mit 7 Buchstaben 5040 verschiedene Permutationen 
möglich macht, was viel zu viel ist, als daß der Normalmensch 
sich hinsetzen und das ansehen könnte. Wenn nach ein, zwei 
Bildschirmen voll sich kein Wort anbietet, spricht etwas dafür, 
daß Sie als Grundlage für Ihre Anagramme die falschen Wörter 
verwendet haben. 


10 INF'UT "Wort eingeben "; LIN 
E 3$ 

20 IF LEN af=0 THEN STOP stop ohne Input 

30 DIM n(LEN a$): LET n=LEN 

40 GO SUB 100 Anagramm erzeugen 

50 FOR 2=1 TO n: PRINT a*(n(z> 

);: NEXT z 

'60 PRINT ': GO TO 40 
100 REM n verschiedene Zahlen e 
rzeugen 

110 LET c=l: FOR w=l TO n 
120 LET :< = INT (RND*n>+l 
130 IF c=l THEN GO TO 170 
140 FOR a=l TO (c-1) 

150 IF :<=n (a) THEN GO TO 120 
160 NEXT a 

170 LET n < w) =;< s LET c=c + l 
180 NEXT w 
190 RETURN 
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Morsen üben 


Pfadfinder, Achtung! Hier ist alles, was ihr braucht, um richtig 
Morsen zu lernen. Wenn ihr eine Taste drückt, wird euch der 
Morsecode ‘vorgespielt’. Ihr könnt das auf Kassette aufnehmen 
und einem Freund (Feind?) schicken. 

Ein nützlicher Hinweis: Wenn ihr den Ton lauter hören wollt, 
dann zieht den Stecker aus der Buchse ‘EAR’ an eurem Kasset¬ 
tenrecorder und drückt auf ‘PLAY’ (zusammen mit PAUSE, 
wenn euer Recorder das hat). Der Ton kommt dann aus dem 
Lautsprecher des Recorders und ist viel lauter als der eingebaute 
Pieper. Wenn ihr an die 100-Watt-Stereoanlage anschließen 
könnt, ist das freilich noch besser ... 


5 GO SUB 200 
10 LET w=CODE INKEY* 

20 IF w=0 THEN GO TO 10 
25 PRINT CHR* w; 

30 IF w>=48 AND w<=57 THEN LET 
w=w~48: GO TO 60 
40 IF w>=65 AND w<=91 THEN LET 
w=w---55: GO TO 60 
50 IF w>=97 AND w< = 123 THEN LE 
T w=w-B7: GO TO 60 
55 GO TO 10 
60 LET s=m(w+1) 

70 IF s=0 THEN GO TO 10 
80 LET c=s—(INT (s/10)*10> 

90 IF c=1 THEN BEEF' .2,0: GO T 
0 110 

100 IF c=2 THEN BEEP .6,0 
110 LET s - —INT (s/10) : FOR x = l T 
0 12: NEXT x 
120 GO TO 70 
200 DIN m(36) 

210 DATA 22222,22221,22211,2211 
1 , 21111 , 11111 , 11112 , 11122 , 11222 , 
j 7799 

220~DATA 21,1112,1212,112,1,121 
1,122,1111,li,2221,212,1121,22,1 
2,222,1221,2122,121,111,2,211,21 
1 1 7 ? 77 1 71 1 7 99 ■« 77 -j 4 -*977 

26o"~FOR x==l *~T0*~36: ~READ m(x)s N 
EXT x 

270 RETURN 


Morsefolge definieren 
Buchstaben holen 
auf Zeichen warten 
anzeig en... 


Folge holen 
alles fertig 
Tonfo Ige 
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Mathe-Lehrer 


Sorgen wegen der Prüfung? Angst, daß es mit dem Rechnen nicht 
klappt? Keine Bange - dieses Programm prüft auf Teufelkomm- 
raus und sagt kein Wörtchen, auch wenn alle Antworten falsch 
sind. 

Man wählt die höchstwertige Zahl in der Frage, damit kleine Kin¬ 
der mit Zahlen unter 10 spielen können, während Erwachsene 
mit Zahlen bis zu einer Million zurechtkommen - oder? 

Als nächstes wählt man die Art der Aufgabe, die man lösen 
möchte: Addition, Subtraktion, Multiplikation oder Division. 
Das Programm liefert nur Aufgaben, die als Lösungen ganze Zah¬ 
len verlangen, aber Sie können das sehr leicht verhindern, wenn 
Sie wollen. 

Jede Prüfung legt zehn Fragen vor, dann erfährt man seinen 
Punktestand. Sie können jede Frage überspringen und brauchen 
dazu nur ENTER zu drücken, wenn Sie die Antwort eingeben 
sollen. Falls Sie einen Drucker haben, können Sie eine Abschrift 
der Prüfung erhalten, wenn sie abgeschlossen ist, weil alle Fragen 
zusammen mit Ihren und den richtigen Lösungen auf dem Bild¬ 
schirm bleiben. 


10 PRINT TAB 8; INVERSE 1;"** 
Mathepruefer *■*"; INVERSE 0 

20 INPUT "Was ist die groesste 
Zahl "; max 

30 DEF FN q$<)=STR$ nl+" "+r$+ 
" "+STR* n2 

40 DEF FN a < > =VAL FN q$() 

50 DIN p$(3,2): LET p*(1>="X": 
LET p$(2)="0K": LET p*(3)="?" 
100 LET a$="Welche Reqel willst 
du?(+—*/)": GO SUB 9000: IF end 
THEN STOP 

110 LET w$="+-*/": LET x$=al: G 
0 SUB 9300 

120 LET Regel=x: IF x=0 THEN GO 
TO 100 

130 LET r$=a$ 

140 LET t=0: DIN s(3) 

200 IF t=10 THEN GO TO 600 
205 LET t=t+l 


Regelnummer 
fest halten 

Operator festhalten 
Punktezählung 
Test vollständig? 
Testzähler 
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210 LET nl=INT (RND*max)+1: LET 
n2=INT <RND*max)+l 
220 IF Regel=1 0R Regel=3 THEN 
GO TO 300 

230 IF n2>=n1 THEN GO TO 210 
240 IF Reqel=2 THEN GO TO 300 
245 LET n2=INT (RND*max/3)+1 
250 LET n1=1NT <nl/n2)*n2 
260 IF n2=n1 THEN GO TO 210 
300 LET a$="Wieviel ist "+FN q$ 
()+"?" 

310 LET a=2: GO SUB 9000: IF en 
d THEN GO TO 400 
320 GO SUB 9400: IF x THEN LET 
Loesung=VAL a$( TO x) 

325 IF NOT x THEN GO TO 300 
330 LET a=(Loesung=FN a(>) 

400 RESTORE 990o+a: READ 
410 PRINT AT 20,0;m* 

500 PRINT AT t+l,Ö;FN q$<>;" = 
IF a<>2 THEN PRINT Loesung; 
510 PRINT TAB 19;p*(a+1) ; 

520 IF a< >1 THEN'PRINT "Loesun 
g = ";FN a() 

525 LET s(a+l)=s(a+l)+l 
530 LET a$="Zur naechsten Frage 
n ENTER druecken": GO SUB 9 

000 

535 OVER 0 

540 PRINT AT 20,0,,,, 

550 GO TO 200 

600 PRINT AT 16,0;"Von den ";t; 
" Fragen," 

610 IF s(3) THEN PRINT " hast d 
u beantwortet ";t~s(3) 

620 PRINT " du'hast ";s(2); M ri 
chtig." 

630 IF s(1) THEN PRINT " Du has 

+• 11 • c= ( i ) ■ ** ■f a 1 sch ** 

640 IF NOT s(1) TUEN PRINT " Da 
s ist recht gut!" 

650 LET a$="Noch ein Versuch? ( 
J/N>": GO SUB 9000: IF CHR$ CODE 
a$="J" THEN RUN 
660 STOP 

9000 REM Zeileneingabe 

9010 INPUT <a*+" ">; LINE a$: LE 

T end=NOT LEN a$ 


addieren und 
multiplizieren 

subtrahieren 
Divisor finden 


Frage stellen 


auf Richtigkeit prüfen 
ist Antwort richtig? 
Antwort st ring 
Antwort anzeigen 


Punktestand ergänzen 


Meldungen weg 
nächste Frage 
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9020 FOR x = l TO LEN a*: LET a$(x 
)»CHR$ (CODE a*(x)-32*(a$(x)>="a 
" AND a$ <x ) < = "2 " > ) : NEXT x 
9030 RETURN 

9300 REN x=instr(w$,x$) 

9310 FOR x = 1 TO LEN wT—LEN x*+l: 

IF x $=w$(x T0 x +LEN x t— 1) TUEN 
RETURN 

9320 NEXT x: LET x=0 

9330 RETURN 

9400 REN x=numptr(a$) 

9410 FOR x = 1 TO LEN a$: IF a$(x) 
>="0" AND a$(x><="9" THEN NEXT x 
9420 LET x =x — 1 
9430 RETURN 

9900 DATA "Falsch. Es muss heiss 
en "+STR$ FN a() 

9901 DATA "Richtig:" 

9902 DATA "Zu schwer? Die Loesun 
g ist "+STR$ FN a() 


Benutzergrafik 

Ich habe verschiedene Programme gesehen, mit denen man ei¬ 
gene Grafik definieren kann, aber alles, was ich wollte, hat noch 
keines geliefert. Die meisten enthalten die unverzichtbare Ein¬ 
richtung, mit den Cursortasten auf einem Gitter herumzufahren 
und Punkte nach Wunsch zu setzen oder wegzunehmen, aber 
nur wenige sind so weit gegangen, einen DATA-Befehl mit aufzu¬ 
nehmen, um die Grafik in folgenden Programmen zu definieren 
oder zuzulassen, daß ganze Reihen und Spalten im Gitter umge¬ 
wandelt werden. 

Aber genug geredet - wie funktioniert das? Wenn das Pro¬ 
gramm geladen und gefahren wird, zeigt es den laufenden Vorrat 
an Benutzergrafik und fordert auf, ein Zeichen zu ändern. Wenn 
Sie in diesem Stadium 'nein’ antworten, fragt das Programm, ob 
Sie die Grafik auf Kassette sichern wollen. Das kann nützlich sein, 
wenn Ihre Programme recht groß sind, weil man dann die Befeh¬ 
le nicht zu behalten braucht, mit denen die Grafikzeichen ge¬ 
setzt werden. 
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Wenn Sie ‘ja’ antworten, fordert das Programm auf, den ent¬ 
sprechenden Buchstaben zu ändern. Das Muster des Zeichens 
wird dann in einem riesengroßen 8x8-Gitter auf dem Bildschirm 
angezeigt, über dem oberen linken Quadrat ein ‘Fadenkreuz’- 
Cursor. Der untere Bildschirmteil zeigtein Menü der Einzelzei¬ 
chen-Befehle, die Sie in diesem Stadium eingeben können: 

X = fertig B = alles leer 

R = Reihe umwandeln S = Spalte umwandeln 
0 = setzen/löschen 5, 6, 7, 8 = bewegen 
Q = belassen V = verstecken/nicht verstecken 

A = anzeigen 

Das Fadenkreuz wird mit den Cursortasten zu einem beliebigen 
Quadrat geführt, ein Quadrat durch Drücken von “0” von 
Schwarz zu Weiß umgewandelt (oder umgekehrt). Das Gitter 
können Sie mit “B” beseitigen, die Quadrate einer ganzen Reihe 
oder Spalte durch Drücken von ‘‘R” oder “C” umwandeln. 

Sie können eine Anzeige durch “A” erhalten, aber zunächst wol¬ 
len Sie das Fadenkreuz ‘verstecken’. Dazu dient der "V’-Befehl. 
Erneuter Druck auf “V" zeigt das Fadenkreuz wieder an. 

“E" (für “Ende”) gibt Ihnen den alten Bildschirm zurück, ohne das 
Zeichen zu verändern, während “X" (für ‘Exit’) das Zeichen im 
Grafikvorrat sichert. In diesem Stadium sehen Sie dann auch die 
Form eines DATA-Befehls, der in einem Programm dazu be¬ 
nütztwerden kann, das Grafikzeichen direkt zu laden. Ein Pro¬ 
gramm, mit dem das geht, sieht so aus: 

3000 REM 103.cf 9raphic -Prorn DflTfl 

öülfcl DH 1 H Id (Zahl der zu definierenden Zeichen einfügen 

fc:!0i£U L'i-i I f l " H 11 ,■ 1 .> 4’ ,i cl .i 4!~i.. f-,7',, 0 wie im Programm genannt 

ÖÖJU DH I l"i " E:l 11 .■ 1. .■ 4! .i c' .i 4b t 6.• >3 wie im Programm genannt 

8040 READ t'i 

8850 FOR x«i TO ti • REHD c* 

8060 FOR r=0 TO ? ■■ REHD y = F’OKE 

USR c$+r'\. y : HEXT r 
8070 NEI4T x 

Mit einem Programm wie dem folgenden erhalten Sie Gelegen¬ 
heit, beim Entwerfen der Zeichen mutig zu werden - Sie brau¬ 
chen es nicht zuerst auf Papier zu zeichnen, weil Sie es rascher 
und wirksamer auf den Bildschirm zeichnen können. 
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Wenn Sie das Programm eingegeben haben, sichern Sie es mit 
dem Befehl: 

SAVE "TABLET” LINE 1 


1 REM User Graphic Tablet 

2 REM (FPhipps Associates 1982 

3 REM VI-0 29th July '82 

20 Gü SUE 2000 

30 LET a$="Willst Du ein Zeich 
en aendern?": GO SUB 9000: IF CH 
R$ CODE a*<>"J" THEN GO TO 500 

50 LET i$="FALSCHE EINGABE •- " 
: LET e*="" 

60 LET a$=e$+"Welchen Buchstab 
en?": GO SUB 9000: IF NOT CODE a 
$ THEN GO TO 20 

70 IF LEN a$<>1 THEN LET e*=i* 
: GO TO 60 

90 IF CODE a$<CODE "A" OR CODE 
at>CODE "U" THEN LET ef=i$: GO 
TO 60 

100 GO SUB 1000 
110 GO SUB 1100 

120 LET dx=0: LET dy=0: LET :<=0 
: LET y=0 
130 DIM c(8,8) 

140 GO SUB 2400 
150 GO SUB 2600 

200 GO SUB 1300: IF ok THEN GO 
SUB 2800: GO SUB 2900 
210 GO TO 20 

500 LET a$="Willst Du ihn abspe 
ichern?": GO SUB 9000: IF CHR* C 
ODE a$< >"Y" THEN GO TO 9999 
510 LET a$="Name des Bandes?": 
GO SUB 9000: IF LEN a$ THEN SAVE 
a*CODE USR "a",21*8 
520 GO TO 9999 
1000 REM draw qrid 
1010 CLS : LET sx=96: LET sy=136 
1020 FOR n=0 TO 8: PLOT sx,sy-n* 
8: DRAW 64,0: NEXT n 
1030 FOR n=0 TO 8: PLOT s:<+n*8,s 
y: DRAW 0,-64: NEXT n 
1040 RETURN 
1100 REM 


Grafik auflisten 


Strings 
initialisieren 
Buchstaben holen 


bestätigen 


Gitter zeichnen 
Position Fadenkreuz 


Grafikgitter 
Muster zeichnen 
Optionen anzeigen 


Wiederholung 


Position auf Schirm 


27 


1110 LET cx=sx+4: LET cy=sy--4 
1200 REM draw Cursor 
1210 PLOT OVER l,40,cy: DRAW OVE 
R 1,160,0 

1220 PLOT OVER l,cx,160: DRAW OV 

ER 1,O,-100 

1230 RETURN 

1300 REM move Cursor 

1305 IF INKEYf O"" THEN GO TO 13 warten auf keine Taste 
05 

1310 LET x*=INKEY*: IF NOT LEN x 
* THEN GO TO 1310 

1315 LET X*=CHR* (CODE X*—32* ( CO Tastencodewert finden 
DE x*>96>> 

1320 LET w*= ,, 05678RCBXQHP": LET 
dx=0: LET dy=0 

1325 GO SUB 9300: IF NOT z THEN ist Code gültig? 

GO TO 1300 

1330 GO TO 1340+( Z — 1 ) * 10 zu Aktionstaste gehen 

1340 GO SUB 2200: GO TO 1300 inneren Plan halten 

1350 LET dx= (x >0) *-i : GO TO 1500 nach links bewegen 

1360 LET dy—(y< 7) : GO TO 1500 nach unten bewegen 

1370 LET dy = (y>0) *-l : 60 TO 1500 nach oben bewegen 

1380 LET dx= (x<7> : GO TO 1500 nach rechts bewegen 

1390 LET s=x: FOR x=0 TO 7: GO S 
UB 2200: NEXT x: LET x=s: GO TO 


FOR y=0 TO 
y: LET y~s 


7: GO S 
GO TO 


FOR y 
c(y+1, 


o. 

+ 

INVER 


1300 

1400 LET s=y: 

UB 2200: NEXT 
1300 

1410 LET 1x =x: LET 1 y=y 
TO 7: FOR x=0 TO 7: IF 
1) THEN PRINT AT 5+y,12+x; 

SE 1; OVER 1;" " 

1415'NEXT x: NEXT y: LET x=lx: L 
ET y=ly: DIM c(8,8): GO TO 1300 
1420 GO SUB 1200: LET ok=l: RETU 
RN 
1430 
1440 
1450 
1500 
15.10 
1520 
y*8 
1530 
1540 

2000 REM Print current set 


LET ok= 
GO SUB 
COPY : 
GO SUB 


: 0: RETURN 
1200: GO TO 
GO TO 1300 
1200 


1300 


LET 

LET 


x=x+dx: LET 
cx=cx+dx*8: 


y=y+dy 
LET cy= 


: cy~d 


Spalte umwandeln 


Gitter löschen 


fertig 0 K 

Ende — nicht OK 
Fadenkreuz verstecken 

Schirm anzeigen 
Fadenkreuz löschen 
Position aktualisieren 


Gü SUB 1200 

60 TO 1300 

REM Print current 


Fadenkreuz neu zeichnen 
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II 


G R fl F 


2010 CL.S 


PRINT 


2020 FÜR x =0 Tü 1 

2030 PRINT AT 2,x*16;"alt 

u" 

2040 PRINT AT 3,x*16;"_ 


ne 


2050 NEXT x 

2060 FOR x =0 TO 1 

2070 FOR c=0 TO 10 

2080 IF x — 1 AND c=10 TUEN GO TO 

2100 

2090 PRINT AT 5+c,<x*16+1>;CHR* 

<65+x*U+c> ; AT 5+c, <x*16+9> ; CHR* 
(144+x*U+c); 

2100 NEXT c 
2110 NEXT x 
2120 RETURN 

2200 REM maintain internal pictu ein Lea-raum 
re 


2210 PRINT AT y+5,x+12; INVERSE 
1; OVER 1; 11 " 

2220 LET c(y+1,x+l)=(c(y+1,x+l>= 
0) 


2230 RETURN 

2400 REM draw existing pattern 
2410 FOR r=0 TO 7 

24-20 LET p=PEEk (USR a$+r) eine Reihe holen 

2430 PRINT AT 5+r,12; Schirmposition 

2440 GO SUB 2500 (Reihe erweitern und anzeigen 

2450 NEXT r 

2460 RETURN 

2500 REM create array 


2510 LET shr=12B 
2520 FOR a=0 TO 7 
2530 LET z = INT (p/shr) 
2540 LET p=p-z#shr 
2550 LET shr=shr/2 


erforderliches Bit 
8 Bits pro Reihe 
Bitwert holen 

nächste Bitposition 


2560 PRINT INVERSE (z<>0)« OVER 
1;" LET c<r+1,a+1)=<z<>0) 

2570 NEXT a 


2580 RETURN 
2600 REM heip 

2610 PRINT AT 0,0; PAPER 1; 


6; "Gewaehler Buchstabe: " ; af- 
2620 PRINT AT 16,0; 

2630 PRINT PAPER 1; INK 6;"X 
t i g " , "Ef=al 1 e wei ss " , "R=Rei he 


INK 


= f er 
aen 


ein Leer raum 
nächstes Bit 
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dern 11 , "C=Saeule aendern " , "O^Fel d 
aendern","5,6,7,8=Kursor","Q=ei 
nzelri lassen ","H=(un)sichtbar", 
"F’=Kopie drucken",, 

2690 RETURN 

2800 REM pack character 

2805 PRINT AT 21,13; PAPER 2;" W 

AIT " 

2810 FOR r=0 TO 7 
2820 LET b=0 

2830 FOR x =0 TO 7: IF c(r + l,x + l) 
THEN LET b=b+2'-(7-x> 

2835 NEXT x 
2840 POLE LJSR a*+r,b 
2850 NEXT r 
2860 RETURN 

2900 REM create data Statements 
2905 PAPER 7: INK 0: BRI6HT 0 

2910 FOR y=14 TO 21: PRINT AT y, 

0;,,: NEXT y 

2920 PRINT AT 15,0; PAPER 1; INK 
6;"Data Ausdruck Format:" 

2930 PRINT '"DATA ;a*;""","; 

2940 FOR r=0 TO 7 

2950 PRINT PEEK (USR a-f+r) ; " , " A 
ND r< >7; 

2960 NEXT r 

2970 PRINT AT 21,0; PAPER 1; INK 
7;"Taste druecken (P~print)" 
2980 LET x*=INKEY*: IF NOT LEN x 
* THEN GO TO 2980 

2990 IF :<$="P" OR x*="p" THEN CO 
PY 

2995 RETURN 

9000 REM line input 

9010 INPUT (a*+" "); LINE a*: LE 

T end=NOT LEN a* 

9020 FOR x=l TO LEN a* 

9030 LET a*(x)=CHR* (CODE a*(x)- 
32*(a*(x)>="a" AND a* (x > < = "z " ) > 
9040 NEXT x 
9050 RETURN 

9300 REM let z=instr(w*,a*> 

9310 FOR z=l TO LEN w*-LEN x*+l: 
IF x*< >w$(z TO LEN x*+z-l) THEN 
NEXT z: LET z=0 
9320 RETURN 
9999 STOP 


8 Reihen 
Reihenwert 
Summe berechnen 


in RAM setzen 
nächste Reihe 


8 Werte 
diese anzeigen 


s. Sübroutinen 


s. Subroutinen 
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Muster 

Dieser Teil bringt Ihnen eine Reihe kleiner Programme, die auf 
dem Bildschirm interessante Muster erzeugen. Das erste, was 
Nachbarn und Freunde immer fragen, ist: "Und was macht dann 
dieses ZX-Computerdings eigentlich?” 

Daraufhin stürzen Sie zu Ihrem Stapel Bandkassetten, reißen das 
Programm 'hübsche Muster' heraus und fahren es. Programme 
dieser Art haben sonst nicht viel Bedeutung, außer, daß sie hüb¬ 
sche optische Effekte erzeugen. 

Ich will mich mit Kommentaren nicht lange aufhalten. Geben Sie 
sie einfach ein und fahren Sie sie. Ich hoffe, Sie gefallen Ihnen, 
wenn schon sonst nichts dahinter ist. 


5 REM **# Pattern 1 
10 OVER 1 

20 BOEDER 0: PAPER 0: BRIGUT 1 
30 CLS 
40 LET w=30 
100 FOR L=0 TO 426+w 
105 INK INT (L/B)-(INT (INT <L/ 
8)/8)*8) 

110 IF L< 427 THEN LET x=L: GO S 
UB 8000: PLOT al,bl: DRAW a2,b2 
120 IF L>**W THEN LET x=L-w: GO 
SUB 8000: PLOT al,bl: DRAW a2,b2 
125 IF LEN INKEY* THEN GO TO 99 
99 

130 NEXT L 
140 GO TO 100 

8000 REM bestimme Zeilenposition 
8010 LET a 1 = (x > 171 > •* (x -171) 

8020 LET b1=(171-x)*(x <172) 

8030 LET a2=(x<256)*x+255*(x >255 
) 

8040 LET b2=172*(x<256>+(428-x)* 
(x >255) 

8050 LET a2=a2-al: LET b2=b2-bl 
8060 RETURN 

9999 BRTGHT 0: BOEDER 7: INK 0: 
PAPER 7: STOP 
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5 REM **** Pattern 2 **** 

10 CLS 
100 OVER 1 

110 LET p=INT (RND*8): LET i=IN 
T (RND*8) 

120 IF p=i THEN GO TO 110 
130 PAPER p: INK i: BORDER p 
140 PRINT AT 0,0;: FOR x=0 TO 2 
1: PRINT OVER 1;,,: NEXT :< 

150 FOR x=23232 TO 23295: POKE 
x,p*8+i: NEXT x 

200 LET x1=0: LET yl=0: LET h=l 
76: LET w=256: GO SÜB 8000 
300 LET x1=x1+INT (w/4): LET yl 
=y1+INT (h/4) 

310 LET h=INT (h/2): LET w=INT 
(w/2> 

315 IF h=0 AND w=0 THEN GO TO 4 
00 

320 GO SUB 8000 
330 GO TO 300 

400 IF NOT LEN INKEY* THEN GO T 
0 100 

410 IF LEN INKEY* THEN GO TO 41 

0 

420 GO TO 9999 
999 STOP 

8000 REM Diamant zeichnen 

8005 LET h1=INT (h/2): LET wl=IN 

T (w/2) 

8010 FOR x=hl~l TO 0 STEP -1 
8020 PLOT x1,y1+h1+x: DRAW wl-1- 
x , h 1 -1 -x 

8030 PLOT x1+w—l,y1+h1+x: DRAW x 
-(wl-1),h1-1-x 

8040 PLOT xl+w-1,yl+hl-l-x: DRAW 
x-(wl-l),x-(h1-1) 

8050 PLOT xl,yl+hl-l-x: DRAW wl- 
1-x,x-(h1-1) 

8060 NEXT x 
8070 RETURN 

9999 BORDER 7: PAPER 7: INK 0: C 
LS 


32 


5 REM *** Pattern 3 *** 

10 BOEDER 0: PAPER 0: CLS 
20 FOR r=2 TO 86 STEP 2 
30 CIRCLE PAPER INT (l*r/U);l 
28,88,r 

40 NEXT r 


5 REM *** Pattern 4 *** 

10 FOR r=0 TO 999 
20 PLOT 128,88 

30 LET «»INT (RND*256): LET y= 
INT <RND*176> 

40 DRAW OVER 1; INK (INT (RND* 
8) ) ; x-128, y-88 
50 NEXT r 


5 REM *** Pattern 5 *** 

10 FOR x=0 TO 9999 
20 LET z=SIN (x*PI/10)*15 
30 PRINT INK (k-INT (j</ 8)*8);A 
T 21,16-z;"*";AT 21,16+z;"*" 

40 RANDOMIZE USR 3582 
50 NEXT x 
60 GO TO 10 
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Winke und Tips 

Dieses Kapitel vermittelt alle möglichen nützlichen Informatio¬ 
nen. An einer oder mehreren Stellen sind sie in diesem Buch alle 
verwendet worden, aber hier habe ich mir die Zeit genommen, 
sie etwas genauer zu erklären. 

Datenträger 

Ohne den Microdrive, das Mini-Diskettenlaufwerk, harren wir 
erwartungsvoll der seltsamen Befehle auf der obersten Tasten¬ 
reihe: OPEN #, CLOSE #, FORMAT, CAT und andere. 

Sie können aber jetzt schon verwendet werden, um Ihnen ein 
paar recht unerwartete und leistungsstarke Programmierinstru¬ 
mente liefern. Zuvor ein kurzer Blick in die inneren Abläufe*des 
Spectrum-ROM (Nur-Lese- oder Festspeicher). 

An den Spectrum kann man eine Reihe von Geräten anschließen 
- Drucker, Microdrive-Geräte, RS232-Schnittstelle - die von 
ROM als Datenströme betrachtet werden. Bevor Sie ein Ge¬ 
rät benützen können, muß es eine Stromnummer erhalten (0 
bis 15). Das wird erreicht mit dem Befehl OPEN #. Bestimmte 
Ströme werden als permanent offen angesehen - Ke/board, 
Bildschirm und Drucker. Sie werden gesetzt als Stromnummern 
0 und 1 für die Tastatur, 2 für den Bildschirm und 3 für den 
Drucker. 

Das Ke/board hat zwei Nummern, weil es (in den Begriffen der 
Programmierung) mit den beiden untersten Bildschirmzeilen 
verbunden ist. 

Genug erst mal - wie können Sie das nutzen? Als erstes können 
Sie von und zu jedem der verfügbaren Geräte eingeben bezie¬ 
hungsweise anzeigen, vorausgesetzt, das Gerät ist dazu fähig. 
Das wird dadurch erreicht, daß in jedem INPUT- oder PRINT- 
Befehl ein #n-Parameter steht. 

Beispiel: 

PRINT #2; "abc” 

zeigt auf dem Bildschirm den String "abc” an - wie zu erwarten. 
Aber wenn Sie jetzt versuchen: 

PRINT #3; “abc” 
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möchte man es glauben? Die Meldung wird auf dem Drucker 
ausgedruckt! Das #3 im Befehl hat praktisch gesagt: ‘Schicke alle 
weiteren Ausgaben von diesem Befehl zu Gerät 3’, und, wie 
oben erwähnt, ist Gerät 3 der Drucker. 

Wer braucht überhaupt LPRINT und LUST? 

Das Obige hat Ihnen vermutlich gezeigt, daß die Befehle LPRINT 
und LUST überflüssig sind. Ihr Programm kann den Befehl ent¬ 
halten: 

PRINT #3; “irgendein Text"; TAB 10; “mehr Text" 
und den Befehl LPRINT völlig umgehen. Ebenso können Sie 
schreiben: 

LIST #3 oder LIST #3, Zeilennummer 
Der große Vorteil dieses Winks ist, daß Ihre Programme für die 
Verwendung des Druckers wie des Bildschirms geschrieben 
werden können, ohne daß eine einzige Zeile geändert werden 
muß! 

Die Zahl, die dem Zeichen #folgt, kann jeder numerische Aus¬ 
druck sein, so daß PRINT #x “abc" auf dem Bildschirm anzeigt, 
wenn x = 2, und auf dem Drucker druckt, wenn x = 3. 

Sie können in Ihre Programme eine Zeile dieser Art einfügen: 
10 LET dev = 2: REM auf Bildschirm umleiten 
20 INPUT “Willst du den Drucker verwenden?": LINE a$ 
30 IF CHR$ CODE a$ = Y OR CHR$ CODE a$ = “y” 
THEN LET dev = 3 

Fügen Sie von jetzt an in alle Ihre Printbefehle “#dev" ein - so ein¬ 
fach ist das. 

Die obige Routine kann wirksamer verkürzt werden durch: 

10 INPUT “Willst du den Drucker verwenden?"; LINE a$ 
20 LET dev = 2+ (CHR$ CODE a$ = “Y" OR CHR$ 
CODE a4 = “y") 

24 Zeilen auf dem Schirm benutzen 

Diese Möglichkeit ergibt sich aus dem Vorigen. Man benützt das 
#-Zeichen bei Printbefehlen. Wie oben erwähnt, hat das Key- 
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board zwei Stromnummern, weil es nicht nur das Keyboard ver¬ 
wendet, sondern auch die beiden untersten Bildschirmzeilen. 
Wenn Sie das folgende Programm fahren, bleibt es stehen, nach¬ 
dem nur 22 Zeilen angezeigt worden sind: 

10 FOR x = 1 TO 30: PRINT x; NEXT x 

Geben Sie nun das nächste Programm ein und fahren Sie es: 

10 FOR x = 1 TO 24 

20 IF x < 23 THEN PRINT x 

30 IF x > 22 THEN PRINT #1; AT x-23,0; x 

40 NEXT x 
50 PAUSE 4E4 

Diesmal haben Sie alle 24 Zeilen angezeigt - und das mit einem 
BAS IC-Programm! 

Der Befehl PAUSE am Ende ist notwendig, weil BASIC, wenn das 
Programm fertig ist, auf den untersten beiden Zeilen die Mel¬ 
dung “0/OK, ..bringt, wodurch prompt die beiden im Pro¬ 
gramm angezeigten Zeilen überschrieben werden. 

Sie können damit experimentieren, in diesen Bildschirmbereich 
anzuzeigen, indem Sie bei Ihren Printbefehlen “#T verwenden, 
weil man auf dem Schirm von unten nach oben anzeigen kann: 
10 FOR x = 0 TO 22 
20 PRINT #1; Ar x, 0; x 
30 NEXT x 
40 PAUSE 4E4 

In diesem Fall sollten Sie beachten, daß die maximale Zeilenzahl, 
die Sie anzeigen können, 22 beträgt, weil zwischen den oberen 
und unteren Displayteilen immer eine Zeile Abstand verlangt 
wird. Alles, was Sie hier.getan haben, ist, die untersten zwei Zei¬ 
len auf 23 ‘auszuweiten’. 

Sie können interessante Wirkungen erzielen, wenn Sie norma¬ 
les Anzeigen mit ‘#T-Anzeigen verbinden. 

Dateinamen 

Obwohl Sie von jetzt an Ihre Programme unter gleichzeitiger 
Verwendung von Bildschirm und Drucker schreiben, tun das 
nicht alle Leute. Wie können Sie also deren Programme so ver¬ 
ändern, daß Ergebnisse auf dem Drucker ausgedruckt werden, 
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ohne daß Sie das ganze Programm durchgehen und PRINT- 
Befehle verändern?. 

Hier kommt der Befehl "OPEN #” zur Geltung. Sobald Sie ein 
Gerät öffnen, geben Sie an, um was für eine Art von Gerät es sich 
handelt - um ein Bildschirmgerät, einen Drucker oder ein Key¬ 
board. Sie geben ferner die Gerätenummer (wie oben aufge¬ 
führt) an. 

Wenn Sie also einen Befehl in ein Programm einfügen: 

1 OPEN #2, T’ 

verändern Sie Gerät 2 so, daß es ein Druckergerät wird. Von nun 
an werden alle Ausgaben im Programm zu Gerät2 auf den Druk- 
ker gelenkt. Geschickt, nicht? 

Probieren Sie dieses Programm aus: 

10 OPEN #2, "s" 

20 PRINT “abc" 

30 PRINT TAB 10; "def 
40 PAUSE 4E4 

Fahren Sie das, sehen Sie sich das Ergebnis an und verändern Sie 
Zeile 10 zu: 

10 OPEN #2, "k” 

Diesmal haben Sie Ausgabe zum 'Keyboard’ oder vielmehr zu 
den untersten beiden Bildschirmzeilen gewählt. 

Sie können auch schreiben: 

10 OPEN #2, “p" 

um Ausgaben zum Drucker zu schicken. 

DATA-Befehle 

Die Befehle READ, DATA, RESTORE sind eine wirksame Zuga¬ 
be zum ZX-BASIC. Diese Befehle können vor allem im Verein 
mit der VAL-Funktion verwendet werden, um sehr kompaktes 
Programmieren zu erreichen. Dazu später mehr. 

Bedenken Sie erstens das Problem, für ein Programm Daten zu 
liefern. In vielen Fällen sind die Daten zwar vorweg gesetzt und 
verändern sich von einem Lauf zum anderen nicht (Sie würden 
sonst LOAD verwenden), Sie könnten sich aber veranlaßt se¬ 
hen, während der Entwicklung des Programms einzelne Posten 
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aus den DATA-Befehlen herauszunehmen oder solche einzufü¬ 
gen. Der Haken dabei ist der: Sie müssen das ganze Programm 
durchgehen und die FOR-Schleifen ändern, um die zusätzlichen 
Daten aufzunehmen. 

Warum nicht vor Ihrem DATA-Befehl einen Zähler einsetzen, 
der dem Programm mitteilt, wie viele Posten es lesen soll? Auf 
diese Weise brauchen Sie das Programm eigentlich nie zu verän¬ 
dern, weil der Zähler durchgehend verwendet werden kann. Ein 
Beispiel: 

10 DATA 6 

20 DATA “Katze", “Hund", “Baum", "Jimmy", “Ball", 
“Ferien"... 

100 READ Zähler 
110 DIM d4 (Zähler, 6) 

120 FOR n = 1 TO Zähler 
130 READ d$ (n) 

140 NEXT n 

Bedingungsprüfung 

Ist Ihnen aufgefallen, daß ein Programm ganz rasch sehr groß 
werden kann, wenn es eine Folge von Bedingungen dieser Art 
gibt: 

100 IF x = 23 AND y = 47 THEN GO TO 1000 
110 IF x < 10 AND y < 10 THEN GO TO 1100 
120 IF x < 10 AND y < 20 THEN GO TO 1200 
130 IF x = 10 AND y O 0 THEN GO TO 1300 


DATA-Befehle können dazu benützt werden, die Größe dieses 
Programms zu verringern, weil Sie die Bedingungen als einen 
String in einen DATA-Befehl aufnehmen und dann VAL verwen¬ 
den können, um das Ergebnis der Bedingung zu finden, wenn es 
gebraucht wird. Sehen Sie sich das an: 

10 DATA 4 

20 DATA “x = 23 AND y = 47”, 1000, “x < 10 AND 
y < 10”, 1100 

30 DATA “x < 10 AND y < 20", 1100, “x = 10 AND 
y<> 0”, 1200 
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100 READn 

110 FOR x = 1 TO n 

120 READ c$, g: IF VAL c$ THEN GO TO g 
1B0 NEXTn 

Offenkundig würde Ihr kleines Programm nur dann profitieren, 
wenn eine große Zahl von Bedingungen vorhanden ist, aber die 
Methode kann bei vielerlei Programmen angewendet werden. 
Sie können noch mehr daraus machen, wenn Sie in den DATA- 
Befehlen statt direkter Strings Stringvariablen verwenden ... 
Wenn Sie dieses Verfahren in voller Anwendung sehen wollen,' 
studieren Sie das Assembliererprogramm weiter hinten im 
Buch. In diesem Programm wird die Methode dazu benützt, un¬ 
nötige Bedingungen zu vermeiden, was mühselig sein kann. Die 
Nebenwirkung hier ist die, daß das Programm nicht nur schnel¬ 
ler läuft als sonst, es braucht auch weniger Speicherplatz. 

Daten auf Band sichern 

Die meisten Spiele brauchen die Kassette nicht, weil diese Art 
Programm nicht mit großen Datenmengen umgeht. Programme 
für Haushalt und Geschäft erfordern das Speichern von Daten 
schon eher, und hier kommen die Befehle LOAD und SAVE zu 
ihrem Recht. 

Ein Programm kann in einem numerischen oder Stringarray ent¬ 
haltene Ergebnisse speichern durch die Erklärung: 

SAVE "Name” DATA x$() (oder nur x() für numerisch) 
Alles schön und gut, aber wenn ein nachfolgendes Programm 
dieses Array (Tabelle, Feld) verwenden muß, hat es von seiner 
Größe keine Ahnung! Offenkundig konnte das Programm, das 
den DIM-Befehl enthält, der das Array hervorbrachte, dafür sor¬ 
gen, daß Fehlermeldung 3 (subscript wrong = falscher Index) 
nicht auftauchte, aber wie verhindern das andere Programme? 
Das geht auf zweierlei Art. Erstens (und für mein Gefühl ist das 
am besten) kann man das erste Element des Arrays dazu ver¬ 
wenden, die Größe des Arrays aufzunehmen: 

10 DIM a(100): LET a(1) = 100 
Wenn mit LOAD wieder geladen, kann das Programm die Zahl 
der Posten im Array bestimmen durch die Angabe: 
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100 FOR n = 2 TO a(1) 

Bei Zeichenarrays nehmen Sie: 

10 DIM a$(100,4): LET a$(1) = CHR$100 
was, wenn wieder geladen, gesteuert wird durch: 

100 FOR n = 2 TO CODE a$(1) 

Übersteigt die Größe eines Zeichenarrays 255 Posten, dann 
müssen Sie eine Routine verwenden, mit der die Zahl in zwei 
Hälften geteilt werden kann - Sie könnten sogar schreiben: 

10 DIM a$(100,6): LET a$(1) = STR$ 100 
Hier muß Ihre Stringlänge aber mindestens 3 Zeichen umfassen, 
weil STR$ 100 einen String erzeugt, der drei Zeichen lang ist 
Nach dem neuerlichen Laden wird das bewertet durch: 

100 FOR n = 2 TO VAL a$(1) 

Die Wahl liegt aber letzten Endes bei Ihnen und wird vermutlich 
vom Programm bestimmt werden. 

Die zweite Methode verwendet eine Kennzeichnung als Hin¬ 
weis auf das Arrayende. In einem numerischen Array etwa könn¬ 
ten Sie als letzten Arraywert ‘IE38’ anfügen. Wenn es ins nächste 
Programm geladen wird, sorgt eine einfache Prüfung auf diesen 
Wert dafür, daß Sie nicht Fehlermeldung 3 erhalten. 
Verwenden Sie bei Stringarrays ebenso einen String aus Copy¬ 
rightsymbolen, um das Ende anzuzeigen. 


Farben neu setzen 

Viele Programme verlangen die Verwendung von Farbe, was zu 
Ärger führen kann, wenn Sie versuchen, das Programm zum 
Laufen zu bringen. Jedesmal, wenn das Programm anhält, bleiben 
die Farben für das Programmlisting in Kraft. 

Ein Weg, dieses Problem zu umgehen, ist der, in jedes Programm 
eine Zeile einzufügen: 

9999 BORDER 7: PAPER 7: INK 0: CLS: STOP 

Wenn das Programm aus einem beliebigen Grund anhält, kön¬ 
nen Sie “GOTO 9999" eingeben, um den Bildschirm auf Normal 
zurückzusetzen, bevor Sie das Programm auflisten. 
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Der PAUSE-Befehl 


ln vielen Programmen bemerken Sie einen merkwürdig ausse¬ 
henden PAUSE-Befehl: 

PAUSE 4E4 

Was bedeutet das? Nun, ein PAUSE-Befehl mißt einen Wert, 
der größer ist als 33000, veranlaßt den Spectrum, auf unbe¬ 
stimmt lange Zeit anzuhalten (im Englischen ‘forever’ = immer, 
was sich, richtig ausgesprochen, auch bei 4E4 - four E four - so 
anhört), jedenfalls bleibt er stehen, bis man eine Taste drückt. 
Das ist eine einfache Art und Weise, sich zu merken, wie man ein 
Programm an hält. 

Platz sparen 

Der Spectrum istzwarvon Haus aus mit16Kausgerüstet, aber es 
fällt trotzdem relativ leicht, ihn vollzufüllen. Programme, die Far¬ 
ben und Grafik voll nutzen, brauchen bald mehr als die 9K, die 
noch verfügbar sind, sobald die Schirmkarte berücksichtigt ist. 
Es gibt viele Methoden, die Größe Ihrer Programme zu verrin¬ 
gern. Hier nur ein paar davon: 

1. Ersetzen Sie alle numerischen Konstanten in Programmen 
durch ihre VAL-Entsprechung. Beispiel: Aus LET A = 5 würde 
LET A = VAL “5” werden, aus GO TO 1100 GO TO VAL 
“1100". Das scheint die Sache zwar nur noch zu verschlim¬ 
mern, aber wenn Sie sich ansehen, wie der Spectrum Zahlen¬ 
einzelheiten im Speicher unterbringt, wird Ihnen bald klar, 
daß Sie jedesmal, wenn Sie den Trick anwenden, 3 Bytes spa¬ 
ren. Multiplizieren Sie die Anzahl, die Sie ersetzen, mit 3, und 
Sie können sehen, daß das schon bei einem kurzen Programm 
sehr viel Speicherplatz spart. 

2. Wenn ein Programm einen Bildschirm voller Regeln zeigt, 
dann tun Sie diese in ein getrenntes Programm, das später das 
Hauptprogramm lädt und fährt. Wenn die beiden Programme 
auf Band hintereinander kommen, ist es eine einfache Sache, 
eine Meldung anzuzeigen wie: "Band jetzt bitte anhalten" und 
“Band jetzt bitte starten”. 

3. Jedes Programm, das in DATA-Befehlen große Mengen vor- 
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gegebener Daten setzt, kann die Daten in einem Array Zwi¬ 
schenspeichern. Die DATA-Befehle können später aus dem 
Programm gelöscht werden, das Array läßt sich unabhängig 
davon auf Band sicherstellen. Das Hauptprogramm kann bei 
Beginn mit'LOAD “Name" DATAxQ’geladen werden, unter 
Verwendung von Meldungen in der obengenannten Art. 


Definierte Funktionen 

Die Fähigkeit, eigene Funktionen zu definieren, kann bei der 
Herstellung kompakter Programme eine große Rolle spielen. 
Die BASIC-Sprache in ihrer Standardform läßt kein echtes 
‘strukturiertes Programmieren’ zu, obschon ZX-BASIC so co¬ 
diertwerden kann, daß ein gewisses Maß an Strukturierung her¬ 
auskommt. Definierte Funktionen machen diesen Traum eher 
zu einer Wirklichkeit, weil mit einem Einzelbuchstaben-Namen 
außerordentlich komplexe Funktionen gestaltet und aufgerufen 
werden können. 

Es lohnt sich ins Gedächtnis zu rufen, daß die für die Definierung 
der Funktionen verwendeten Variablen als für die Funktion 
lokal behandelt werden. Das läßt sich am besten an einem Bei¬ 
spiel zeigen. Versuchen Sie es damit: 

10 LET x = 10 
20 DEF FN a(x) = x*2 
30 PRINT FN a(3) 

40 PRINT x 

Obwohl Zeile 20 den Namen "x" verwendet hat, um die Funk¬ 
tion zu definieren, ist der Spectrum schlau genug zu erkennen, 
daß Sie die Variable x nicht verändern wollen. Bei der Ausfüh¬ 
rung von Zeile 40 wird also der Wert 10 angezeigt. 

Ein kleiner Hinweis: Der Gebrauch definierter Funktionen in ei¬ 
nem Programm ist offenkundig vorteilhaft, aber Sie sollten wis¬ 
sen, daß der Spectrum jedesmal, wenn die Funktion verwendet 
wird, das komplette Programm nach dem richtigen “DEF FN"- 
Befehl sucht, um festzustellen, was zu geschehen hat. Das bedeu¬ 
tet: Sie sollten alle Ihre definierten Funktionen an den Pro¬ 
grammanfang setzen, damit das Programm so schnell wie mög¬ 
lich läuft, vor allem bei größeren Programmen. 

42 


Ich habe unten eine Handvoll nützlicher definierter Funktionen 
für Sie aufgeführt - die meisten haben sich beim Schreiben der 
Programme für dieses Buch als praktisch erwiesen: 

DEF FN i(x) = PEEK x + 256* PEEK (x + 1) 

Mit dieser Funktion können Sie den Inhalt eines 16 Bit- 
Werts aus dem Speicher laden. Ich benütze sie häufig 
dazu, den Wert einer Systemvariablen zu laden. Um 
den Wert von RAMTOP zu erhalten, schreiben Sie 
beispielsweise nur: LET ramtop = FN i (23732). 
DEF FN p(x) = PEEK x - (256* (PEEK x > 127)) 

Wenn Sie den Wert eines Einzelbytes im Speicher 
feststellen wollen, müssen Sie darauf Rücksicht neh¬ 
men, daß er entweder einen vorzeichenlosen Wert 
von Null bis 244 odereinen Wert mit Vorzeichen zwi¬ 
schen -128 und +127 darstellen kann. Diese Funktion 
behandelt den Wert als vorzeichenbehaftet und gibt 
den Byteinhalt an Adresse x als einen Wert zwischen 
-128 und +127 bekannt. Beispiel: Hex FF kann be¬ 
trachtet werden entweder als 255 (vorzeichenlos) 
oder als -1 (mit Vorzeichen). Wenn Byte 23681 FF 
hex enthält, dann liefert FN p (23681) den Wert —1, 
DEF FN h (x) = INT (x/256) 

Liefert das ‘hochwertige’ Byte einer Variablen, die ei¬ 
nen 16 Bit-Wert enthält. 

DEF FN L (x) = FN (h (x)* 256)) 

Liefert das 'niederwertige’ Byte einer Variablen, die ei¬ 
nen 16-Bit-Wert enthält. Beachten Sie hier die Ver¬ 
wendung einer definierten Funktion innerhalb einer 
anderen - diese Funktion verlangt “DEF FN (h (x))" 
oben. 

Die beiden letzten werden in der Hauptsache dazu verwendet, 
Werte mit ‘POKE’ in Systemvariable einzugeben. Beispiel: 
Wenn Sie den Wert der Systemvariablen CHAR$ zu einer Zahl 
verändern wollen, die in Variable enthalten ist, würden Sie im 
Normalfall schreiben: 

1100 POKE 23606, c-256* INT (c/256) 

1110 POKE 23607, INT (c/256) 

Siehe dazu Kapitel 25 des Sinclair-Handbuchs. 
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Wenn Sie die beiden Funktionen verwenden, können Sie nun 
aber schreiben: 

1100 POKE 23606, FN L (c) 

1110 POKE 23607, FN (H (c) 

Die Uhr 

Manche Spiele in diesem Buch nutzen die ‘Uhr’ im Spectrum. 
Diese Uhr ist in Wahrheit eine Systemvariable (FRAMES), die 
fortwährend jede Sekunde fünfzigmal tickt. Mit Maschinencode 
kann man diese Uhr abschalten (obwohl das unangenehme Ne¬ 
benerscheinungen hervorruft), aber in BASIC bleibt sie zuver¬ 
lässig. 

Die Uhr besetzt eine Drei-Byte-Stelle der Systemvariablen, die 
in der Lage ist, 2 24 (16 777 216) mal zu ‘ticken’. Da die Uhr in der 
Sekunde fünfzigmal zählt, läuft das auf eine maximale Zeitzäh¬ 
lung von fast vier Tagen hinaus! 

Bei den meisten Spielen ist eine abgelaufene Zeitzählung von 
21 Minuten mehr als ausreichend. In diesem Fall braucht man nur 
die beiden ersten Bytes des FRAMES-Zählers. Wenn Sie längere 
Abläufe zu messen haben als 21 Minuten, müssen Sie das dritte 
Byte berücksichtigen. 

Damit die Uhr genutzt werden kann, muß sie vor Beginn eines 
Programms neu eingestellt werden. Das geschieht dadurch, daß 
man Null in die ersten zwei Bytes setzt (bei mehr als 21 Minuten 
in alle drei). Das geht so: 

POKE 23673,0: POKE 23672,0 
Um festzustellen, wie viele Sekunden vergangen sind, seit die 
Uhr neu gestellt wurde, verwenden Sie die folgenden Befehle: 

LET vergangen = FN i (23672)/50 
(Denken Sie daran, daß die Funktion FN i (x) oben definiert ist.) 
Soll Ihr Programm, sagen wir, 200 Sekunden laufen, ist ein Test 
jetzt einfach: 

IF vergangen > 200 THEN GO TO ... 

Berücksichtigen Sie, daß die Uhr zwar weiterhin ‘tickt’, Ihr Pro¬ 
gramm die abgelaufene Zeit aber nur dann prüft, wenn Sie den 
oben gezeigten Befehl befolgen. Aus diesem Grund sollten Sie 
nicht schreiben: 
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IF vergangen = 200 THEN GO TO ... 
weil das Programm zwischen Zeitprüfungen vielleicht länger als 
eine Sekunde braucht, was diesen ‘Ist gleich’-Test unter be¬ 
stimmten Bedingungen scheitern läßt. Fügen Sie stets eine Prü¬ 
fung auf ‘größer als’ ein. 

Wenn Ihr Programm jede Sekunde einen Ton erzeugen will, 
können Sie schreiben: 

IF vergangen O letzte Prüfung THEN BEEP .01,-8 
In diesem Fall können Sie die Ungenauigkeit sogar hören, weil Ihr 
Programm zwischen Zeitprüfungen manchmal länger braucht, 
was dazu führt, daß die Töne in unregelmäßigen Abständen 
kommen. 


Wie man Fehlermeldung 3 vermeidet 

Während der ganzen Programme in diesem Band (und sogar 
früher in diesem Abschnitt) werden Sie oft eine Zeile dieser Art 
sehen: 

IF CHR$ CODE a$ = "Y THEN ... 

Der Sinn dieser Zeile ist der, ein Problem im folgenden Pro¬ 
gramm zu vermeiden: 

10 INPUT ‘‘Drücke ENTER”; a$ 

20 IF a$ (1) = “X” THEN GO TO 10 
Wenn Sie es fahren, drücken Sie ENTER, wie verlangt. Sie wer¬ 
den in Zeile 20 sofort die Fehlermeldung 3 sehen. Der Grund: 
Die Bedingung a$ (1) kann nicht bewertet werden - a$ enthält 
keine Zeichen. Die Folge davon ist, daß ein Programm stets prü¬ 
fen und dafür sorgen muß, daß ein String lang genug ist, bevor 
sein Inhalt geprüft wird. 

Die vorangestellte Zeile umgeht das Problem jedoch, weil die 
CODE-Funktion sogar dann wirksam wird, wenn der String leer 
ist - sie liefert dann nur den Wert Null. CHR$ CODE a$ er¬ 
bringt damit eines von zwei Ergebnissen, entweder das erste 
Zeichen von a$ oder das Zeichen mit dem Code Null (das ist ein 
unbenütztes Zeichen). 

Da die CODE-Funktion auf das erste Zeichen des Strings 
wirkt, können Sie diese Methode dazu benützen, sich irgendein 
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Einzelzeichen des Strings anzusehen, ohne Fehlermeldung 3 
hen/orzurufen. Sehen Sie sich Folgendes an: 

IF CHR$ CODE a$ (4 TO) = "X” THEN ... 

Das funktioniert sogar dann, wenn a$ weniger als vier Zeichen 
enthält. Das Prinzip bleibt das gleiche und kann außerordentlich 
nützlich sein beim Schreiben von Programmen, die ein hohes 
Maß an kluger Zeileneingaben-Abtastung erfordern. Das bringt 
mich zum Thema: 

Kluges Zeilenabtasten 

Was das ist? Wenn Sie schon einmal die echten Abenteuer-Spie¬ 
le ausprobiert haben, wird Ihnen wohl klar sein, daß Sie einen Be¬ 
fehl eingeben, den der Computer abtastet, bevor er nach Ihren 
Anweisungen handelt. 

Für die Befehle, die Sie eingeben, bestehen fast unendlich viele 
Möglichkeiten. Also muß der Computer offenkundig die Einga¬ 
ben prüfen und entscheiden, welche er befolgen kann und wel¬ 
che nicht. 

Die erste Aufgabe, die er leistet, ist die, daß er die Zeile in ihre 
Bestandteile aufspaltet - in Wörter. Die untenstehende Routine 
besteht aus zwei Teilen. Erstens habe ich eine Subroutine einge¬ 
fügt, die einen in der Variable A$ enthaltenen String abtastet, um 
alle Wortendungen zu finden. Diese Information ist in einem 
Array A () enthalten. Zweitens gibt es eine definierte Funktion 
FNsb (), die Ihnen anschließend jedes gewünschte Wort aus 
dem String liefert. 

Array A () muß auf die Höchstzahl von Wörtern gesetzt wer¬ 
den, die Sie in der Eingabezeile verwenden wollen. 

9600 REM Zeilenabtastung 

9610 LET Maxwörter = 10 (nach Wunsch verändern) 
9620 DIM a (Maxwörter, 2) (Wortzeiger) 

9630 LET Wortanfang = 0: 

LET Wortnr = 1 (Zeiger 1. Wort) 

9640 FOR x = 1 TO LEN a$ (Zeile abtasten) 

9650 Wortanfang O (a$ (x) O “ ” 

AND a$ (x) O 7 THEN 

LET a (Wortnr, Wortanfang +1) = x—1 (Wortanf/ 

ende 
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LET Wortnr = Wortnr + Wortanfang: 

LET Wortanfang = NOT Wortanfang: 

(Anf/Ende-Umkehr. 

IF Wortnr > Maxwörter THEN RETURN 
9660 NEXT x: LET a (Wortnr, 2) = x-1 

(Sichern ngszeiger) 

9670 RETURN 
Die definierte Funktion ist: 

9680 DEF FN s$ (x) = a$ (a(x, 1) + 1 TO a (x, 2) 

Die Routine verlangt einige Erläuterungen. Die Variable ‘Wort¬ 
anfang’ enthält den Wert ‘falsch’, sobald die Routine nach einer 
Wortendung (z. B. nach einem Leerraum odereinem Komma), 
und den Wert ‘wahr’ (1), wenn sie nach einem Wortanfang 
(nicht einem Leerraum odereinem Komma) sucht. Die Positio¬ 
nen im String A$ von Wortanfängen und -endungen werden 
festgehalten im Array A (x, 2). Zeile 9650 führt mehrere Aufga¬ 
ben aus. Sie hält den laufenden Wortanfang/ende-Zeiger im 
Array A (x, 2) fest, aktualisiert die Wörterzählung, wenn ein 
neues Wort angefangen wird, und kehrt den Test dann um; er¬ 
folgte die letzte Suche also nach einem Wortanfang, wird die 
nächste nach einem Wortende erfolgen und umgekehrt. 

Keine einfache Routine. Anfänger werden damit eine Weile be¬ 
schäftigt sein. 

Wenn String a$ also enthält 'Der Rat ist in der Tat’, können Sie 
nach dem Lauf von Subroutine 9600 die folgenden Ergebnisse 
erhalten: 

PRINT FN s$ (1) liefert “Der” PRINT FN s$ (2) "Rat” 
PRINT FB s$ (9) liefert PRINT FN s$ (6) “Tat” 

Diese Ergebnisse erleichtern die Einzelverarbeitung des Strings 
erheblich. Ein Programm kann dadurch, daß es eine Tabelle zu¬ 
lässiger Wörter abtastet, leicht auf das Vorhandensein entweder 
bestimmter Wörter oder Gruppen von Wörtern und Wendun¬ 
gen prüfen. Ihre Phantasie ist die einzige Grenze! 
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Burgmauern 

Die Normannen sind da! Sie stehen auf der Mauerbrüstung, kön¬ 
nen hinunterblicken und sehen, wie die Leitern an den Mauern 
heraufkommen - aber was können Sie tun? 

"Siedendes Pech!" denken Sie und schütten sofort Pech auf die 
Eindringlinge hinunter. Manchmal verfehlen Sie, manchmal hö¬ 
ren Sie die Geräusche, wenn das Pech über die Opfer rinnt 
Es ist unausweichlich, daß sie früher oder später eindringen. Die 
Frage ist nur, wie lange Sie sie fern halten können. Pech gibt es ge¬ 
nug, vorausgesetzt, Sie füllen immer wieder auf, aber wenn Ihr 
Faß einmal leer ist - mehr brauchen sie nicht, um die Burg zu 
stürmen, während Sie hilflos hin- und herlaufen. 

Sie brauchen sich nur mit zwei Reglern zu befassen: Taste “6" 
läßt Sie Pech hinuntergießen, mit Taste “8" können Sie das Faß 
wieder füllen. Das nimmt aber Zeit in Anspruch, und während 
dieser Pause steigen die Leitern weiter in die Höhe. 

Am Anfang können Sie die Schwierigkeitsstufe des Spiels wählen 
- je schwieriger, desto mehr Leitern, aber um so besser die 
Punktezahl für jedes Opfer. 

Stellen Sie das Programm sicher mit: 

SAVE “CASTLE” UNE 1 


1 REM **** Castle walls **** 

2 REM ©Phipps Associatesl982 

3 REM By Trevar Toms 

5 RESTORE : RANDOMIZE : CLEAR 

10 GO SUB 8100: REM initialise 

20 GO SUB 8000: REM instructio 
ns 

30 INPUT "Spielstaerke? (1-5)? 

";1v: IF lv<l OR lv>5 THEN GO T 
0 30 

40 LET nl =1 V+ 1 (Wahrscheinlichkeiten setzen 

50 LET 1g=28/nl 

60 LET rl = . 2+1 v/10: REM -freque 
ncy of ladder growing 

70 LET r2=.1+1v/50: REM probab 
ility of oi1 stopping ladder 
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SO LET r3=(5-1v)*10: REM movem 
pnt ^ n c? t? ri 

90 LET g=1000: LET s=0: LET h$ 
=">HELP<" 

100 GO SUE< 8200s REM draw castl 
e 

105 GO SUB 8600 

110 LET 1p=2: LET rp=29: LET di 
r = l 

120 DIM 1(nl,2): FOR x=l TO nl: 

LET 1(x,2)=21: NEXT x 

130 LET y=l: FOR x=2+lg/2 TO 29 

STEP lq: LET l(y,l)=INf (:< + . 5) : 

LET y=y+1: NEXT x 

140 OVER 0 

200 FOR p = lp TO rp STEP dir 
210 PRINT AT 3,p; OVER 1; INK 8 
; PAPER 8;CHR$ 145 

220 IF INKEY*="6" THEN GO SUB 8 
300s REM pour oi1 

221 LET f=(INKEYf="8")*(g<>0> 
225 IF RND>r1 THEN GO TO 500 
230 IF INKEY$< >"" THEN GO TO 23 

0 

235 LET 1=1NT (RND*nl)+l 
240 LET a=l(1,2): LET b=l(l,l) 
250 PRINT AT a,b; PAPER 8;CHR* 
144 

255 BEEP .1,21-a 
260 IF a=3 THEN GO TO 600 
270 LET 1(1,2)=a-l 
500 IF -f THEN IF RND>r2 THEN LE 
T g=g+FN r(60+1v*20): GO SUB 860 
0: GO TO 230 

510 PRINT AT 3,p; OVER 1; INK 8 
; PAPER 8;CHR* 145 
'515 NEXT'p 

520 LET dir=dir*--l: LET lp=(lp = 
2>*27+2s LET rp=(rp=2)*27+2 
530 GO TO 200 

600 PRINT AT 21,0; OVER 0; PAPE 
R 2; INK 7;"HILFE!SIE SIND OBEN! 

III« 

7000 REM game end 

7010 REM b~ladder ca1umn,p=your 

column 

7015 PAPER 8: INK 0: OVER 0 
7017 LET 1$="“ 


Bewegungsgrenzen 

Leitern-Grundposit. 

Mann bewegen 

Pech ausgießen 

auf mehr Pech prüfen 

Leitern steigen weiter 

noch nachfüllen 

Posit. nächster Mann 
Richtung wechseln 

o. je. Das Ende 
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7020 FOR ><=21 TO 3 STEP -1 

7025 LET t#=CHR:£ 146: IF t$=l* T 

HEN LET tT=CHR$ 147 

7030 IF x< >21 THEN PRINT AT x + 1, 

b;CHR$ 144 

7040 PRINT AT x,b;t* 

7045 BEEP .1,-1 
7050 PAUSE 15 
7055 LET l$=t$ 

7060 NEXT x 
7065 OVER 1 

7070 PRINT AT 3,b;CHR* 145 
7100 LET dir=SGN (p-b) 

7105 IF NOT dir THEN PRINT AT 3, 
b-3; PAPER 2; INK 7;">ZACK<": PR¬ 
INT AT 21,0;"Die Leiter hat Dich 
erwischt!": GO TO 7220 
7110 FOR x=b TO p STEP dir 
7120 IF xOb THEN PRINT AT 3,x-d 
ir; OVER 1;CHR$ 145 
7130 PRINT'AT 3,x; OVER 1;CHR* 1 
45 

7135 BEEP .1,-10 
7140 PAUSE 15 
7150 NEXT x 

7200 PRINT AT 3,p-3; PAPER 7; IN 
K 0; FLASH 1; OVER Ö;"MORD!!!" 

721Ö FOR x=52 TO -13 STEP -1: BE 
EP .001,x: NEXT x 

7220 INPUT "Noch ein Spiel? (J/N 
)? "; vt -: IF NOT LEN yS- THEN GO T 
0 7220 

7230 IF CODE y*=CODE "J" OR CODE 
y$=CODE "j" THEN GO TO 30 
7240 GO TO 9999 
8000 REM instructions 
8010 GO SUB 8200: REM draw castl 
e 

8015 PAPER 8: OVER 1 
8020 PRINT AT 3,16;CHR* 145 
8025 PRINT AT 5,7; INK 7; PAPER 
2;"** STURMANGRIFF **" 

8030 PRINT “Die schrecklichen No 
rmannen wol=len Deine Festung st 
uermen.Du hast 1000 Gallonen h 
eisses Oel zum Hinunterschuette 
n (Druck aufTaste >6<.Geh sparsa 
m damit um!" 


Normannen leiter 


wohin bewegen 


Bewegung zu Ihnen 


Blutbad 
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8040 PRINT "Mit Druck auf Taste 
>8< kannst Du jederzeit neues 0 
el holen. Aber Vorsicht: Die L 
eitern wer= den dabei immer hoeh 
er..." 

8090 RETURN 

8100 REM initialise 

8105 DATA "a",66,255,66,66,66,25 

5,66, 88 

8110 DATA "b",24,80,88,126,60,24 
,255,255 

8115 DATA "c",24,90,126,24,56,40 
,4,0 

8120 DATA "d",24,90,126,24,28,20 
, 20,0 

8130 FDR c — 1 TO 4: READ c$: FOR 

r=0 T0 7: READ x: POLE LJSR c$+r , 

x: NEXT r: NEXT c 

8140 DEF FN r(x>=INT (RND*x)+l 

8190 RETURN 

8200 RLM castle 

8210 BORDER 6: PAPER 6: INK 0 

8215 CLS 

8220 PLOT 16,175: DRAW 0,-31: DR 
AW 224,0; DRAW 0,31: DRAW 15,0: 
DRAW 0,-175: DRAW -255,0: DRAW 0 
,175: DRAW 16,0 
8230 PAPER 5 

8240 FOR y=0 TO 3: PRINT AT y,2; 

: FOR x =2 TO 29: PRINT OVER 1;"' 

NEXT x: NEXT y 
8250 PAPER 6 
8260 RETURN 
8300 REM pour oil 
8305 IF NOT g TUEN GO SUB 9000: 
FOR z — 1 TO 20: NEXT z: GO SUB 90 
00: GO TO 8450 
8310 FOR v=4 TO 21 
8320 LET x$=SCREEN$ <v,p) 

8330 IF NOT CODE '.<$■ THEN IF RND< 

r2 THEN 60 TO 8360 

8340 PRINT AT y,p; INVERSE 1;" " 

8345 BEEP .01,-15: BEEP .01,-10 

8350 NEXT v 

8360 LET x=y~l 

8370 FOR z — 1 TO nl: IF 1 (z,1)=p 
THEN LET s=s+l+(x-1 (z,2))*1v: LE 
T 1(z,2)=x: FOR n=52 TO 26 STEP 


ein Leerraum 


Boden finden 


ein Leerraum 
Gluckergeräusche 

Leiterhöhe verändern 
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-1: BEEP .001,n: NEXT n: GO TO 8 
400 

8380 NEXT z 

8400 FOR y=4 TO : PRINT AT y,p; 

OVER 1; INVERSE 1;" NEXT y 
8405 PLOT 0,0: DRAW 255,0 
8410 LET g=g-FN r(60+lv*20): IF 
g<0 THEN LET g=0 
8430 GO SUB 8600 
8440 IF g THEN RETURN 
8450 PRINT AT 21,0;"KEIN OEL MEH 
R! " 

8460 RETURN 

8600 REM score line 

8610 PRINT AT 0,9; PAPER 2; INK 

7;"Punkte:";s;TAB'20; FLASH <q=0 

);"Oel: " ; q; " 

8620 RETLJRN 
9000 REM help 

9010 PRINT AT 2,p-2; OVER 1; PAP 
ER 8; INK 2;h$ 

9020'RETURN' 

9999 PAPER 7: BORDER 7: INK 0: S 
TOP 


ein Leerraum 

Burgfundament neu 

Pechmenge 

verringern 


2 Leerräume 
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Programme für Fehlersuche 

Sie haben also eben Ihr neues Meisterwerk fertiggeschrieben 
und halten den Atem an, während Sie RUN drücken ... 

Und ... nichts. Das Programm sitzt mit leerem Bildschirm da 
oder unten am Schirm erscheint eine Fehlermeldung. Was nun? 
Wo fangen Sie an, den Grund dafür zu ermitteln, warum der 
Spectrum nicht mitspielen will? 

Zu allererst: Notieren Sie die Fehlermeldung auf einem Stück Pa¬ 
pier. Der Grund: Man vergißt nur zu leicht die Zeilennummer, 
die als Bestandteil der Meldung erschienen ist. 

Wenn das Programm einfach 'steht', drücken Sie BREAK, um zu 
erfahren, wo genau das Programm fehlgelaufen ist. 

Drücken Sie auf keinen Fall CLEAR, denn das löscht alle Varia¬ 
blen im Programm, die außerordentlich wichtig dabei sein kön¬ 
nen, Ihnen bei der Auffindung von Fehlern zu helfen. 

Wenn Sie ein Neuling beim Programmieren sind, kann es 
manchmal schwerfallen, zu begreifen, wie ein Programm schief¬ 
laufen kann - schließlich hat es ja beim Eingeben keine Syntax¬ 
fehler gegeben! 

Ich stelle Ihnen nun ein kleines Programm vor, das einige Fehler 
enthält. Sie geben das Programm ein, fahren es, und anhand des 
Textes hier werden wir (hoffentlich) feststellen, wo die Fehler 
auftreten, sie korrigieren und es noch einmal versuchen. Auf die¬ 
se Weise sollten Sie die Hauptpunkte bei der Fehlersuche in Ih¬ 
ren eigenen Programmen kenneniernen. 

Ich möchte ein Programm schreiben, das einen Mann mit Fall¬ 
schirm auf dem Bildschirm von oben nach unten sinken läßt. 
Wenn er unten ankommt, soll der Spectrum "PLATSCH” anzei- 
gen. 

Anmerkungen: 

1. Mann und Fallschirm können mit einer definierbaren Grafik 
hervorgebracht werden. Ich habe dafür den Buchstaben "A" 
(CHR$ 144) gewählt. Der Mann wird so aussehen: 
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Siehe das Programm ‘Benutzergrafik-Tafel’ wegen weiterer Einzel¬ 
heiten dazu. 

2. Die Subroutine für das Grafikzeichen ist eine ‘Standard'-Sub- 
routine - ein solches Beispiel wird in Kapitel 14 des Sinclair- 
Handbuchs gegeben. 

Hier also mein erster Versuch, das Programm zu schreiben. Sie 
könnten es eingeben und mit RUN fahren, um zu sehen, was da¬ 
bei herauskommt: 


10 REM Fallschirm 


20 DATA "A", 28, 62,127, 


34, 42, 62, 28, 20 

(Grafikanordnung) 

30 READ c$ 

(Zeichenbuchst, holen) 

40 FOR r = 0 TO 8 

(Zeichen laden) 

50 READ x: POKE USR v$ + 

r, x 

60 NEXT x 


100 CLS 

(Schirm leer bereit) 

110 FOR / = 0 TO 22 

(auf jeder Zeile anz.) 

120 PRINT ATy, 16; 

(Mann und Fallsch. 

CHR$ 145 

anzeigen) 

130 NEXT y 

(in jeder Zeile) 


Als erstes erhalten Sie (wenn Sie es so eingegeben haben, wie es 
hier steht) “2 Variable notfound 50:2". Offenkundig ist ein Feh¬ 
ler in Zeile 50 - aber welcher? Eine der Variablen in der Zeile ist 
nicht gefunden worden. Um festzustellen, welche, geben Sie ein 
(als direkte Befehle): 

PRINT x 
PRINT v$ 

PRINT r 

Sie werden feststellen, daß das bei der ersten und dritten klappt, 
nicht aber bei der zweiten (PRINT v$). Das ist die fehlende Va¬ 
riable. Werfen Sie einen Blick auf Zeile 30 - da steht “READ c$”. 
Da c$ das Grafikzeichen enthält, das wir zu setzen versuchen, 
ergibt die Verwendung von v$ in Zeile 50 offenkundig keinen 
Sinn! Verändern Sie Zeile 50 zu: 

50 READ x: POKE USR c$ + x 
Fahren Sie das Programm erneut. Was geschieht diesmal? 

“1 NEXT without FOR, 60:1”. Zurück zum Listing. Zeile 60 hat 
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"NEXT x”, während in Zeile 50 steht “FOR r = 0 TO 8”. Was ist 
richtig? Wenn Sie sich Zeile 50 ansehen, können Sie erkennen, 
daß die Variable x durch den READ-Befehl gesetzt wird, wäh¬ 
rend die Variable r steuert, in welche Zeile das Grafikzeichen ge¬ 
setzt wird. Zeile 60 ist also falsch, und Sie sollten sie verändern 
zu: 

60 NEXT r 

Wieder fahren! Was nun? “E Out auf DATA50:1Zeile 50 wird 
neunmal befolgt, weil Zeile 40 sagt “For R = 0 TO 8" - insgesamt 
neun Schleifen. Die DATA-Anweisung auf Zeile 20 enthält 9 Po¬ 
sten, aber in Zeile 30 gibt es ein zusätzliches "READ". Entweder 
enthält also Zeile 20 ungenügende Daten, oder Zeile 40 darf nur 
8 Posten enthalten. 

Wir alle wissen (?), daß für ein Grafikzeichen nur acht Datenpo¬ 
sten erforderlich sind. Zeile 20 muß also in Ordnung sein. Verän¬ 
dern Sie Zeile 40 so: 

40 FOR r = 0 TO 7 

Noch einmal RUN. Mann! Sofortzeigen sich zwei Probleme. Er¬ 
stens läuft ein ganzer Strom von Männern und Fallschirmen den 
ganzen Bildschirm hinunter. Zweitens ist die Meldung “5 Out of 
Screen 120:1" erschienen. Nehmen wir das zuerst. 

Zeile 110 regelt, welche Zeile auf dem Bildschirm für die Anzeige 
verwendet werden soll. Probieren Sie also: 

PRINT y 

als direkten Befehl. Wenn alles so ist wie bei mir, erhalten Sie den 
Wert 22. Nun gibt es eine Zeile 22 nicht - sie sind von 0 oben am 
Bildschirm bis 21 unten numeriert - Zeilen 22 und 23 sind für 
den Spectrum reserviert. Schuldig ist Zeile 100 im Programm. 
Sie müßte lauten: 

110 FOR y = 0 TO 21 

Das zweite Problem war der Strom von Männern in der Bild¬ 
schirmmitte. Hier habe ich bei meinem Programmentwurf einen 
Fehler gemacht. Mit der Anzeige jedes neuen Mannes sollte der 
alte gelöscht werden. Versuchen Sie, die folgende Zeile einzuge¬ 
ben: 

115 STOP 

Fahren Sie jetzt das Programm. Sie sehen “9 STOP Statement, 
115:1" unten am Bildschirm. Geben Sie CONTINUEals Befehl 
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ein. Diesmal sehen Sie den ersten Mann angezeigt, dann hält das 
Programm wieder an. Wenn Sie wieder CONTINUE drücken, 
sehen Sie den nächsten Mann angezeigt. Dieser Trick ist überaus 
nützlich, um ein Programm von Fehlern zu befreien. Erstens ver¬ 
langsamt er das Programm und läßt Ihnen Zeit, sich den Bild¬ 
schirm anzusehen, zweitens können Sie jede der Variablen an- 
zeigen lassen, um nachzuprüfen, ob sie den richtigen Wert ha¬ 
ben. Wenn Sie irgendeine Variable anzeigen lassen, müssen Sie 
Ihr Programm mit GO TO weiterfahren, weil CONTINUE ver¬ 
sucht, den letzten direkten Befehl neu auszuführen, und der 
Spectrum einfach stehenbleibt, bis Sie BREAK drücken. 

Außerdem wollen Sie vielleicht gar keine Posten auf dem Bild¬ 
schirm anzeigen lassen, weil das all die schönen Dinge durchein¬ 
anderbringt, die Ihr Programm erzeugt hat. Sie können das 
durch das Folgende umgehen: 

Statt PRINT y einzugeben, 

... geben Sie ein PRINT #1 ; AT 0,0; y: PAUSE 4E4 
Das führt dazu, daß der Wert von y auf den beiden untersten 
Bildschirmzeilen angezeigt wird, dann wartet der Computer 
darauf, daß Sie eine Taste drücken. Siehe das Kapitel ‘Winke und 
Tips’ weiter vorn. 

Zurückzu unserem Programm. Entfernen SieZeile 115 und fü¬ 
gen Sie dem Programm folgende drei Zeilen an: 

115 IF y > 0 THEN PRINT AT y-1,16; (ein Leerraum) 

125 PAUSE 12 

140 PRINT AT 21,14; “PLATSCH” 

Die erste dieser Zeilen entfernt den ‘Strom’ von Männern den 
Bildschirm herunter. Beachten Sie, daß der Test “IFy > 0” erfor¬ 
derlich ist, weil das Programm sonst aufZeile minus 1 nichtanzu- 
zeigen versuchen würde. 

Die zweite Zeile ist eine kurze Pause, um das Programm ein we¬ 
nig zu verlangsamen, weil der Mann sonst wie ein Bleigewicht 
herunterfällt! Die dritte Zeile beendet das Programm mit der 
Meldung PLATSCH, die ich am Anfang schon erwähnt hatte. 
Wenn Sie das Programm jetzt fahren, sollte es genau das leisten, 
was ich wollte. Sie sollten gesehen haben, wie ich die Fehler mit 
Hilfe von drei wichtigen Methoden aufgespürt habe: 
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1. Ungefähr wissen, was das Programm leisten soll, weil Sie sonst 
‘blind’ kämpfen. 

2. Direkte PRINT-Befehle (also ohne Zeilennummer) verwen¬ 
den, um den Wert von Variablen zu prüfen, wenn ein Fehler 
auftritt. Aus dem PRJNT-Befehl kann ein "PRINT #1; AT0,0” 
werden, wenn Sie den Bildschirm nicht gestört haben wollen. 

3. STOP-Befehle verwenden, damit Teile des Programms ge¬ 
nauer überprüft werden können. Sie lassen sich entfernen, 
sobald Sie überzeugt sind, daß der Abschnitt richtig funktio¬ 
niert. 

Ich möchte abschließend hier noch zwei Dinge sagen: Schreiben 
Sie Ihre Programme auf, bevor Sie sie eingeben. So lassen sich 
beim Fahren des Programms Fehler leichter entdecken, weil Sie 
unrichtige Zeilen (solche, die zu Fehlermeldungen führen) mit 
Ihrer Niederschrift vergleichen können. Zweitens: Wenn Sie ei¬ 
nen Drucker haben, verwenden Sie ihn! Machen Sie ein neues 
Listing von Ihrem Programm. Sie möchten nicht glauben, wievie¬ 
le Fehler von Programmieren gemacht werden, die ein überhol¬ 
tes Listing vor sich haben. 

Kurz vor Schluß gebe ich Ihnenein Listing des Programms, wie es' 
aussehen sollte, nachdem alle obenerwähnten Veränderungen 
eingefügt worden sind: 

18 REM Par3.chu.te 
28 DAT Fi " fl 11 ,28,62, 127, 34,42,62 
,28,20 
30 REflD 

40 FÜR r=0 TO 8 
50 REflD x : POKE USR vS+r.-x 
60 HEXT r 
108 CLS 

110 FOR y=0 TO 22 

120 PRINT FIT y , 16.; CHRT 145 

138 HEXT y 
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Phantastisch! 


Bei diesem Abschnitt sehen Sie wirklich rot! Hier finden Sie ein 
Programm, mit dem man auf dem Bildschirm Labyrinthe erzeu¬ 
gen kann. Jedes Labyrinth ist einzigartig, und es gibt vom Eingang 
zum Ausgang nur einen Weg. 

Es ist ziemlich leicht, ein Labyrinth-Zeichenprogramm zu ma¬ 
chen, das vielerlei Wege zuläßt, aber solche Labyrinthe sind 
nicht so befriedigend, weil man sie viel rascher lösen kann. 

Das Programm braucht ungefähr zehn Minuten, um ein Laby¬ 
rinth in einem Gitter 30 mal 20 zu zeichnen. Das ist nicht gerade 
schnell, aber es kommen unterhaltsame Ergebnisse heraus. 
Wenn Sie einen Drucker haben, lohnt es, eine gedruckte Wie¬ 
dergabe des Bildschirms herzustellen, damit Sie den Verbin¬ 
dungsweg auf Papier verfolgen können. 

Das Labyrinth wird auf dem Bildschirm vor Ihren Augen gezeich¬ 
net, was ein sehr interessantes Schauspiel ist. Sie haben davon 
aber keinen Vorteil, weil Eingangs- und Ausgangspunkte erst 
dann angezeigt werden, wenn das ganze Labyrinth fertig ist. 
Der ganze Algorithmus ist enthalten in einer Subroutine, die im 
Programm bei Zeile 7000 anfängt. Vielleicht wollen Sie diese 
Routine dazu verwenden, Ihre eigenen Spiele zu produzieren, 
die auf einem Labyrinth beruhen. Wenn ja, dann bleibt Ihnen, 
wenn Sie die verschiedenen vorkommenden PRINT-Befehle 
unterdrücken, das Zeichenarray m$ (), das ein Bild des geschaf¬ 
fenen Labyrinths enthält. Das Format dieses Labyrinths sieht so 
aus: 

Jede Zeile auf dem Bildschirm entspricht einem der großen 
Strings im Array m$. Jede Zeile enthält eine Codenummer zwi¬ 
schen 0 und 15; sie stelltdie Verbindungen zwischen benachbar¬ 
ten Zeilen dar. Die Zusammenhänge werden in der unten 
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Code; 01 2345 67891011 12131415 Verbunden * mit; 


1 -y-y-y-y-y-y-y-y 

2 __ yy __ yy __ yy __ yy 

3 -yyyy-yyyy 

4 -yyyyyyyy 


Sie werden diesen Algorithmus später verwendet sehen im Pro¬ 
gramm “3D-Labyrinth” - eine unglaubliche Reise durch ein 
kubisches Labyrinth. 

Wenn das Programm gefahren wird, sehen Sie auf dem Bild¬ 
schirm “Keimwert" angezeigt. Das ist die Zahl, mit welcher der 
RANDOMIZE-Befehl ausgesät wird. Sie kann dazu verwendet 
werden, dasselbe Labyrinth zweimal hervorzubringen. Wenn 
Sie das tun wollen, beginnen Sie das Programm mit: 

LET es = Keimwert (Ihre Zahl) 

GO TO 20 

Das Programm sollte (wie üblich) gesichert werden durch: 
SAVE "AMAZING” LINE 1 


1 REM **** Amazing! **■** 

2 REM ©1982 F'hipps Associates 
5 RESTORE : RANDOMIZE : OLEAR 
OVER 0 

10 LET rs=INT (RND*256) 

20 CLS : PRINT TAB 6; "| 


by r i n t h 


30 PRINT AT 2,0;"Typ: ";rs 
40 RANDOMIZE rs' 

60 LET m$="Labyrinth-Breite? ( 
2-30):": GO SUB 9000: IF end THE 
N GO TO 9999 

70 LET w=VAL a$: IF w<2 OR w>3 
0 THEN GO TO 10 

80 LET m$="Labyrinth-Hoehe? (2 
-20):": GO SUB 9000: IF end THEN 
GO TO 9999 

90 LET h=VAL a$: IF h<2 OR h>2 
,0 THEN GO TO 30 
100 LET s=INT (<30-w)/2) 

110 GO SUB 7000 
200 GO TO 9999 
7000 REM create maze array 
7010 CLS 

7020 DATA x -1 , y,x >1,x +1,y,x < w 
7030 DATA x,y-1,y>1,x,y+1,y<h 


Zufallskeim setzen 


auf Schirm zentrieren 
Labyrinthgenerator 
alles fertig 


Quadrate ringsum 
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7040 DATA 139,131,139,131,138,13 Grafikcodes 
0,138,130,139,131,139,131,138,13 
0,138,130 

7050 DIM c(16): RESTORE 7040 

7060 FOR n = l TO 16: READ c(n): N Grafik lesen 

EXT n 

7070 FOR X = 1 TO w: PRINT AT 1 , X + Ränder zeichnen 
s;CHR$ 139; AT h + i ,:<+s; CHR* 131: 

NEXT :< 


7080 FOR y=l TO h: PRINT AT y,s+ 
1;CHR* 139; AT y,w+s+1;CHR* 138: 
NEXT v 

7090 PRINT AT y,x+s;CHR$ 130 
7100 DIM m$(h,w>: DIM r$(INT (w* 
h*.67),2): DIM n$(4,2): DIM -f<4, 
•-» ) 

7110 LET r=0: LET f^=CHR$ r 
7120 LET x = INT <RND*w)+l: LET y= 
INT <RND*h)+l 

7130 LET m$<y,x)=CHR$ 100: PRINT 
AT y,x+s;CHR$ 139 
7200 GO SÜB 7300 
7210 IF NOT r THEN GO TO 7900 
7220 GO SUB 7500 
7230 LET x=a: LET y=b 
7240 GO TO 7200 
7300 REM fcreate 

7310 RESTORE 7020: FOR n=l TO 4: 
FOR m=l TO 3: READ f(n,m): NEXT 
m: NEXT n 
7320 FOR n=l TO 4 
7330 LET z = INT <RND*4)+1: IF i <z 
,1)=-1 THEN GO TO 7330 
7340 IF f(z,3) THEN GO SUB 7400 
7350 LET i (z,1)=-1 
7360 NEXT n 
7370 RETURN 
7400 REM addcell 

7410 IF <n*(-f (z ,2) ,-f (z , 1) )<>" " T 
HEN RETURN 

7420 LET mt-(f (z ,2) ,-f (z , 1) )=-f$: L 
ET r=r+1 

7430 LET rf (r)=CHR# -f (z , 1) +CHR* 

f(z,2) 

7440 RETURN 
7500 REM connect 

7510 LET x=CODE r$(r,l): LET y=C 
ODE r$(r,2): LET r=r-l 


unten rechts ausfüllen 


Grenze erzeugen 
keine Zellen mehr da 
neue Zellen hinzufügen 

das bei allen Zellen 

Umgebungswerte holen 


Umgebungszelle wählen 


wenn zulässig, zu Grenze 
als 'gewählt' markiert 
für alle vier wiederholen 


ein Leer raum 
Grenze machen 
Koordinaten behalten 
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Erzeugungsfehler 


7520 GO SUB 7600: IF NOT n THEN 
STOP 

7530 LET n=INT (RND*n>+l: LET a= 

CODE n$(n,l>: LET b=CODE n*(n,2> 

7540 GO SUB 7700 

7550 LET 2=:<: LET :<=a: LET a=z 

7560 LET z=y: LET y=b: LET b=z 

7570 GO SUB 7700 

7580 RETURN 

7600 REM -find* 

7610 RESTORE 7020: LET n=0 
7620 FOR z=l TO 4 

7630 READ a,b,c: IF NOT c THEN G 
0 TO 7660 

7640 IF m$(b,a)=" " OR m$(b,a)=-f 
THEN GO TO 7660 

7650 LET n=n+l: LET n*(n>=CHR* a 
+CHR$ b 
7660 NEXT z 
7670 RETURN 

7700 LET z=(a-x<>0)+(a-x>0)+(b-y 
< >0 > *4+(b-y >0)*4 

7710 LET z=CODE m$(y,x)+z: IF z> 
100 THEN LET z=z-100 
7715 LET m$(y,x)=CHR* z 
7720 PRINT AT y,:<+s;CHR$ c(z + l) 
7730 RETURN 

7900 LET in=INT (RND*(h-1))+2: L 
ET out=INT (RND*(h-1))+1 
7910 LET m* (in , 1) =CHRT- (CODE ( 
in,1)+1) 

7920 PRINT AT i n , s; " >" ; CHRf- c(CO 
DE (in,1)+1) 

7940 PRINT AT out,s+w+1;CHR$ 130 

7950 RETURN 

9000 REM line input 

9010 INPUT (m*+" ">; LINE a$: LE 

T end=NOT LEN af- 

9030 RETURN 

9999 STOP 


Zelle Eins anschließ 


Zelle Zwei anschließ. 


neuen Weg wählen 


ein Leerraum 


zwei Zellen anschließ. 


Ein- u. Au9g. wählen 


UmwandI. nicht nötig 
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Einlage 

Dieses kleine Programm verwandelt Ihren Spectrum in einen 
Zeichenblock. Sie können die Cursortasten (5,6,7 und 8) dazu 
verwenden, um einen imaginären Bleistift auf dem Schirm her¬ 
umzuführen und Bilder ganz nach Wunsch zu zeichnen. 

So wie es dasteht, ist das Programm sehr einfach, und zwar be¬ 
wußt, damit Sie ausreichend Möglichkeiten zu Verbesserungen 
haben - diagonal bewegen, Zeilen löschen, zu einer vorbe¬ 
stimmten Position gehen, um nur ein paar zu erwähnen. 

Der ‘Bleistift’ beginnt immer in der linken unteren Bildschirm¬ 
ecke. 

10 LETx = 0: LETy = 0 
20 PLOT x, y 

30 LET x$ = INKEY$: IF NOT LEN x$ THEN 
GO TO 30 

40 LET x = x- (x > 0)* (x$ = “5”) + (x < 255)* 

(x$ = “8”) 

50 LET y = y- (y > 0)* (x$ = "6") + (y < 175)’ 

(x$ = “7”) 

60 GO TO 20 
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Revers! - ein Strategiespiel 

Spielautomaten bieten Sofortspaß. Sie sind großartig, wenn 
Freunde dabei sind, weil man da seine Kräfte messen und viele 
Leute stundenlang amüsieren kann. 

Viele Spiele dieser Art erfordern aber wenig geistige Anstren¬ 
gung. Man muß nur die Knöpfe rasch genug drücken können, 
mehr ist nicht verlangt. 

Hier deshalb etwas, um die kleinen grauen Zellen ein bißchen an¬ 
zuregen. Reversi gibt es schon seit vielen Jahren, und die Her¬ 
kunft liegt ziemlich im dunkeln, obschon es Nachweise für ein 
ganz ähnliches Spiel in Ungarn aus dem 19. Jahrhundert gibt. 
Man kann das Brettspiel unter Markennamen kaufen. Vielleicht 
verstaubt irgendwo bei Ihnen ein Exemplar, weil wie bei den 
meisten Strategiespielen zwei oder mehr Spieler nötig sind und 
man keinen Partner findet. 

Nun, hier ist ein Partner, der keine Kopfschmerzen hat, der es 
länger aushält als Sie, und der nicht beleidigt ist, wenn Sie gewin¬ 
nen. 

Das Spiel wird auf einem Brett von acht mal acht Feldern von 
zwei Personen gespielt. Hier spielen Siegegen den Spectrum. Sie 
haben die weißen Figuren, der Spectrum die schwarzen. 

Bei dem Spiel kommt es darauf an, daß Sie auf dem Brett mehr 
von Ihren Spielsteinen haben als der Spectrum. 

Bei jedem Zug können Sie eine Figur setzen. Die einzige Regel 
beim Setzen ist die, daß die Figur mindestens einer der gegneri¬ 
schen ‘in die Flanke fallen’ muß. Das bedeutet, daß Sie die Fi¬ 
guren) des Gegners zwischen dem eben gesetzten und einer 
schon auf dem Brett stehenden einschließen müssen, und zwar 
in beliebiger Richtung, vertikal, horizontal oder diagonal. Ein Bei¬ 
spiel sehen Sie unten. 

Alle Figuren des Gegners, die auf diese Weise eingeschlossen 
sind, werden durch solche von Ihrer eigenen Farbe ersetzt. 
Dann kommt der andere Spieler zum Zug. 

Das Spiel ist zu Ende, wenn entweder alle Spielfelder besetzt 
sind oder kein Spieler mehr ziehen kann. Die Figuren werden 
gezählt. Gewonnen hat der Spieler mit den meisten eigenen Fi¬ 
guren auf dem Brett. 
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Für den Neuling klingt das außerordentlich einfach, aber die Stra¬ 
tegie dieses Spiels ist erstaunlich kompliziert. Die in dieser Abart 
des Spiels eingebaute Strategie ist für höhere Ansprüche keine 
sehr schwierige, aber für die meisten Leute doch eine ganz or¬ 
dentliche Herausforderung. 

Das Brett wird auf der Bildschirmmitte angezeigt, oben und an 
der linken Seite mit Buchstaben beziehungsweise Ziffern als Hin¬ 
weisen. Wenn Sie an der Reihe sind, geben Sie die Bezeichnung 
des Feldes ein, auf das Sie Ihre Figur setzen wollen. Das ist eine 
Bezeichnung aus zwei Zeichen, das erste ein Buchstabe A-H für 
die Spalte, das zweite eine Ziffer (1 -8) für die Reihe. Wenn die 
Position nicht vorhanden ist, wird Ihnen das mitgeteilt. 

Die Anfangsposition sieht so aus: 



Sie können sich dafür entscheiden, als erster zu ziehen, oder das 
dem Spectrum überlassen. In der Anfangs position können Sie ei¬ 
ne Figur auf die Felder D3, C4, E6 oder F5 setzen. Das sind bei 
dieser Stufe die einzigen Felder, wo man Figuren des Gegners in 
die Flanke fallen kann. 

Im Verlauf des Spiels nimmt die Zahl der Figuren, die Sie in die 
Zange nehmen können, entsprechend zu, und an der rechten 
oberen Bildschirmecke wird laufend die Zahl der eingesetzten 
Figuren jedes Spielers angezeigt. 

Wenn Sie nicht ziehen können, geben Sie “x" ein. Der Spectrum 
prüft dann, ob Sie wirklich festsitzen, und empfiehlt Ihnen, wenn 
das zutrifft, einen Zug (nicht unbedingt den besten), damit Sie 
weitermachen können. Glauben Sie aber nicht, daß Ihnen das auf 
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die Siegesstraße verhilft! Ich kann Ihnen versichern, daß das nicht 
der Fall ist. 

Sichern Sie das Programm mit: 


SAVE “Reversi" LINE 1 


1 REM *#•** Reversi *•*** 

2 REM ©1982 Phipps Associates 
5 RESTORE : RANDOMIZE : CLEAR 


10 CLS : PRINT AT 0,7; INVERSE 
1 ;"**** Reversi *•*#•#"; INVERSE 

0 

15 PRINT Version 2.0 v. 25. 
Oktober 1982" 

20 PRINT AT 10,8;"Spielfeld-Au 
f bau" 

30 DEF FN y(p)=INT (<p-l)/8> 

40 DEF FN x(p>=(p-1)-FN y(p)*B 
50 DEF FN c$ (p)=CHR$ (CODE "A" 
+ (p—2) --INT < <p-l)/10)*10> 

60 DEF FN r$(p>=CHR* (CODE "O" 
+INT ((p-l)/10)) 

1000 SO SLJB 7200 
1010 GO SUB 7300 
1020 LET tc=0 

1100 LET aT="WilIst Du anfangen? 
": GO SUB 9000 

1110 LET t=(CHR* CODE a*<>"J"> 
1200 LET t=NOT t: LET fc=0 
1210 GO SLJB 2000+t*1000 
1220 IF cg=2 TUEN GO TO 5000 
1400 LET b(p)=t+1; SO SUB 7500: 
GO SUB 7400 

1410 IF s(1)+s(2)=64 THEN GO TO 
5100 

1415 LET tc=tc+l 
1420 GO TO 1200 
2000 REM my move 

2005 PRINT AT 21,0;"Ich setze... 

II 


Brett etc. initialis. 
Brett zeichnen 


Spielerwechsel 
wenn beide nicht 
ziehen können... 
Figuren setzen 


beide Fig. gesetzt 


nächster Spieler 


2ülU FOR a~ 1 TO 64 zu lass. Züge prüfen 

2015 IF tc=0 THEN LET a=a+INT (R 

ND*4) 

2020 LET p=p(a)s GO BUB 7000 
2030 IF -fc THEN GO TO 2100 
2040 NEXT a 
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Flagge nicht zu beweg. 


2050 BEEP .25,10: PRINT AT 21,0; 
"Ich kann nicht setzen!" 

2060 LET cg=cg+l: RETURN 

2100 BEEP .25,10: PRINT AT 21,0; 

"Ich setze " ; FN c$(p);FN r$(p> 

2110 LET cg=Ö 

2120 RETURN 

3000 REM vour move 

3010 LET a*="Du setzt = k 

ein Zug):": GO SUB 9000 

3020 PRINT AT 21,0,, 

3025 IF a$="X" THEN GO TO 3200 
3030 IF LEN a$<>2 THEN GO TO 300 
0 

3040 LET x=CODE a$(1)-CODE "A": 
IF :<<0 OR x >7 THEN GO TO 3000 
3050 LET y=CODE a*(2)-CODE "1": 
IF y<0 OR y>7 THEN GO TO 3000 
3060 LET p=<y+l)*10+::+2: GO SUB 
7000 

3070 IF -fc=0 THEN PRINT AT 21,0; 
"Unerlaubter Zug - Nachmal!": GO 
TO 3000 
3080 LET cg=0 
3100 RETURN 
3200 REM cheat check 
3205 PRINT AT 21,0;"Ich denke na 
ch. . . " 

3210 FOR a=60 TO 1 STEP -1: LET 
p=p (a) : GO SUB 7000: IF NOT fc T 
HEN NEXT a: LET cg=cg+l: PRINT A 
T 21,0,,: RETURN 

3300 PRINT AT 21,0; FLASH 1;"BET 
RÜG!"; FLASH 0;" Du kannst auf " 
;FN c$(p);FN r$(p) 

3310 GO TÖ 3000 

5000 REM game over 

5010 PRINT AT 20,0;"Keiner kann 

setzen." 

5100 PRINT AT 21,0,, 

5110 IF s <1)=s(2) tHEN PRINT AT 
21,0;"Wir haben gleich viel Punk 
te.": GO TO 5200 

5120 LET a$="Ich bin": IF s(2)>s 
(1) THEN LET af="Du bist" 

5130 PRINT AT 21,0;a*;“ Sieger." 
5200 LET a$="Noch ein Spiel?": G 
0 SUB 9000: IF CHR$ CODE a$="J" 


großes X 
Zug bestätigen 


prüf., ob hier richtig 


prüfen, ob 
zulässiger Zug 
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THEN RUN 

5210 GO TO 9999 

6999 STOP 

7000 REN check legal move (p) 

7001 REN t=0 is my move 
7010 LET -f c=0 

7020 IF b(p) THEN RETURN 
7030 FOR i=l TO 8: LET mc=0 
7040 LET xp=p+i(i>: IF b(xp)<XN 
OT t)+l THEN 60 TO 7100 
7050 LET mc-mc+1: LET t(-fc+mc)=:< 
p: LET xp=xp+i(i): IF b(xp)=(NOT 
t)+l THEN GO TO 7050 
7060 IF b(xp>Ot+l THEN LET mc=0 
7100 LET f c=-fc+rac 
7110 NEXT i 
7120 RETURN 
7200 REN initialise 
7210 DIN b(100): DIN i(8): DIN t 
(30): DIN p(64): DIN s$(2,4) 

7220 RESTORE 9900 
7230 FOR x = l TO 64: READ p: LET 
p(p) = (FN y <x)+l)*10+FN x(x>+2: N 
EXT x 

7250 FOR x =0 TO 9: LET b(x + l)=9: 
LET b(91+x)=9: LET b(10*x+l>=9: 
LET b(10*x+10)=9: NEXT x 
7260 LET b(45)=1: LET b<46>=2: L 
ET b(55)=2: LET b(56)=l 
7270 FOR x=l TO 8: READ i(x>: NE 
XT x 

7280 LET s$(l)="Ich:LET s*(2) 
= " DU: " 

7285 GO SUB 9500 
7290 RETURN 
7300 REN draw board 
7305 CLS 

7310 FOR x=0 TO 8: PLOT 96+x*8,l 

44: DRAW 0,-64: NEXT x 

7320 FOR y=0 TO 8: PLOT 96,144-( 

y*8>: DRAW 64,0: NEXT y 

7330 PRINT AT 2,12; INK 4;"ABCDE 

FGH" 

7340 FOR y=l TO 8: PRINT AT 3+y, 
10; INK 4;y: NEXT y 
7400 REN display positions 
7410 DIN s(2) 

7420 FOR y=0 TO 7: FOR x=0 TO 7: 


Feld schon besetzt 
Felder rundum prüf. 
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LET z=b(<y+l)*10+x+2>: IF z THE 
N PRINT AT y+4,x+12;CHR* (143+z) 

: LET s(z)=s(z)+l 
7430 NEXT x: IMEXT y 

7440 FOR Z = 1 TO 2: PRINT AT Z , 24 ein Leerraum 
; INK 2; CHR-f- (z + 143) ; INK 0; INV 
ERSE 1; s$ (z ) ; INVERSE Oqs(z');" " 

: NEXT z 

7490 RETURN 

7500 REM update board 

7510 FOR f = l TO fc: LET b(t(-f>) = 

t+1: NEXT i 

7520 RETURN 

9000 REM line input 

9010 INPUT (af+" "); LINE a$: LE 

T end=NOT LEN af- 

9020 FOR x = l TO LEN a$: LET a$(x 

)=CHR$ (CODE a$(x)-32*(a$(x)>="a 

" AND at(x)<="z")): NEXT x 

9030 RETURN 

9500 REM qraphics 

9510 DATA"2 

9530 DATA "A",255,247,247,247,22 

7.193.255.255 

9540 DATA "B",128,136,136,136,15 

6.190.128.255 

9550 RESTORE 9510: READ n 
9560 FOR x — 1 TO n 

9570 READ c$: FOR r-0 TO 7: READ 
b: F'OKE USR c$+ r ,b: NEXT r 
9580 NEXT x 
9590 RETURN 

9900 REM board priorities 
9910 DATA 1,49,5,17,18,6,50,2,51 
,57,41,33,34,42,58,52,7,43,13,25 
,26,14,44,8,19,35,27,61,62,28,36 
,20,21,37,29,63,64,30,38,22,9,45 
,15,31,32,16,46,10,53,59,47,39,4 
0,48,60,54,3,55,11,23,24,12,56,4 
9920 DATA -11,-10,-9,-1,1,9,10,1 
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3 D-Labyrinth 

Dieses Programm führt wirklich das Höchste an Labyrinthen vor 
- ein Labyrinth in drei Dimensionen. Wie bei allen Labyrinthen 
geht es darum, wieder herauszukommen, aber zuerst müssen 
Sie das Ziel finden! Bei den üblichen Labyrinthen sieht man den 
Weg nach draußen, aber hier müssen Sie durch die Räume wan¬ 
dern, um ihn zu entdecken. 

Der Blick auf jeden Raum ist so, als stünden Sie in der Nähe des 
Mittelpunkts und hätten die Rückwand vor sich. Oben am Bild¬ 
schirm ist die Decke, links und rechts befinden sich Wände. Gän¬ 
ge werden gezeigt, wo sie vorhanden sind, und Sie haben die 
Wahl, welchen Sie betreten wollen. 

Sie spielen in einem Würfel mit vier, fünf oder sechs Räumen pro 
Kante, je nach dem von Ihnen gewählten Schwierigkeitsgrad. Sie 
beginnen an einer Zufallsposition im Labyrinth und müssen dann 
den Weg nach draußen finden. Benützen Sie die Cursortasten, 
um sich nach links (5), rechts (8) oder geradeaus (7) zu bewe¬ 
gen. Sie können auch hinauf (U) und hinunter (D).wennTunnels 
das gestatten. Damit Sie hinter sich blicken können, müssen Sie 
jedoch "B" drücken, was Sie um eine halbe Drehung herum¬ 
schiebt, ohne daß Sie den Raum verlassen. 

Mit Ausnahme der vertikalen Bewegung verändert sich Ihr Blick 
auf das Labyrinth, wenn Sie sich nach rechts oder links oder 
ganz herumdrehen. 

Bei Beginn des Spiels erhalten Sie mehrere Möglichkeiten, wie 
das Spiel ausgeführt werden kann. Sie können gegen die Zeit 
spielen - da haben Sie 240 Sekunden Zeit herauszufinden, was 
recht spannend wird. Außerdem können Sie dafür sorgen, daß 
die Lage der Räume neben der Ausgangsraum-Nummer ange¬ 
zeigt wird. Dadurch läßt sich viel leichter gewinnen. Für den An¬ 
fänger ist das also ideal. Aus diesem Grund wird das Zeitlimit auf 
120 Sekunden verringert, wenn Sie gegen die Zeitspielen wollen 
und die Raumnummern angezeigt werden. 

Es gibt mehrere strategische Methoden, einen Sieg zu erringen, 
aber darauf sollen Sie selbst kommen! 

Bitte denken Sie daran, daß Sie Geduld haben müssen, während 
das Labyrinth hervorgebracht wird. Es kann mehrere Minuten 
dauern, wenn Sie die schwierigste Stufe wählen. Ist das Spiel zu 
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Ende, erhalten Sie die Möglichkeit, im selben Labyrinth noch ein¬ 
mal zu spielen, so daß Sie zwischen den Spielen nicht zu warten 
brauchen. Es wird ein neuer Ausgang bestimmt, so daß Sie sich 
nicht darauf verlassen können, den Weg zum alten Ausgang zu 
finden. 


Wenn Sie für das Spiel mehr Zeit zulassen wollen, verändern Sie 
Zeile 1070. Die Variable “LIMIT” muß auf die gewünschte Anzahl 
von Sekunden gesetzt werden. 

Stellen Sie das Programm wie gewohnt sicher mit: 

SAVE "3D MAZE" LINE 1 


1 REM ******* 3D Maze ******* 

2 REM ©1982 Phipps Associates 
5 RANDOMIZE : RESTORE 

10 LET -f —0: BORDER f: CLS : GO Anfangsdisplay 
SUB 6500 

15 PLOT VAL "38",VAL "21": DRA 
W f,VAL "60": DRAW VAL "32",f: D 
RAW f,VAL "-60": CIRCLE VAL "42" 

UA| "Sl " VAI "O" 

20 PRINT AT VAL "6",VAL "8"; I 
NK VAL "2"; INVERSE NOT ■f;"*** H 
OEHLEN ***" 

25 LET a$="Wi11 st Du die Spiel 
anleitung?": GO SUB 9000: IF CHR 
$ CODE a$="J" THEN GO SUB 9600 

30 LET a*="Welche Groesse? (1- 
3)": GO SUB 9000: IF end THEN GO 
TO 9999 


40 LET x =V AL a*: IF ;<<VAL "1" 

OR x>VAL "3" THEN GO TO 30 

50 LET h=::+VAL "3": LET w=h: L Würfelgröße setzen 
ET v=h 

100 GO SUB 7000 Labyrinth erzeugen 

200 FOR i=NOT -f TO VAL "10": BE Ton bereit 
EP .05,10: BEEP .05,15: NEXT i 
210 LET a$="Spiel gegen die Zei 
t? (J/N)": GO SUB 9000: LET cloc 
k=(CHR$ CODE a$="J") 

220 LET a$="Koordinaten-Anzeige 
? (J/N)": GO SUB 9000: LET dc=(C 
HR$ CODE at="J") 


1000 GO SUB 6800 
1010 GO SUB 6900 
1020 DIM d(VAL "4",VAL 
•f (VAL "6") : DIM g (VAL 


"4") 
"4" , 


: DIM 
VAL " 


Ausgang wählen 
Startposition wählen 
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6">: DIM d$(VAL "6"): DIM t$(VAL 
"6",VAL "3") 

1030 RESTDRE 2000: FOR i =VAL " 1 " Gänge zeichnen 
TO VAL "4": FOR j=VAL "1" TO VA 
L "4": READ d(i,j): NEXT j: FOR 
j=VAL "1" TO VAL "6": READ g(i,j 
): NEXT j: NEXT i 

1035 FOR i=VAL "1" TO VAL "6": R zulässige 
EAD t$(i): NEXT i Bewegungen 

1040 LET d=VAL "1" 

1050 LET d$="7B85UD" zuläss. Zeichen 

1060 F'OKE 2-j>67-^* ^ "f : F'OKE 2-J:<672 ? 'f Uhr laufen lassen 
1070 LET lt”^ : LET 1 i mi - fc”24U"h (h Zeitlimit setzen 
4) *60 

1080 IF de TFIEN LET 1 i mi t= (1 i mi t Hälfte für leicht 
/VAL "2") 


1100 LET i=CODE m*(z,y,x) 

1110 FOR p=5 TO -f STEP -1 
1120 LET f(p+l)=INT (i/2-p) 

1130 LET i=i —f (p + 1)*2" p 

1140 GO SUB 6700: IF MOT t THEN 

GO TO 5200 


Raumbeschreib, holen 
Verbindungen bestimm. 


verbliebene 
Zeit messen 


1150 NEXT p 

1200 GO SUB 6500 Raum zeichnen 

1210 FOR p = l TO 6: IF -f(p) THEN 
GO SUB g (d,p) 

1220 GO SUB 6700: IF NOT t THEN Zeit prüfen 
GO TO 5200 
1230 NEXT p 

1300 GO SUB 6700: IF NOT t THEN Zeit prüfen 
GO TO 5200 


1305 IF de THEN PRINT #-f; AT 1 , -f ; 
"Raum: ";z;y;x;TAB 19;"Ausgang i 
ns " ; i z ; i y; i x ; 

1310’lET xWlNKEY*-: IF NOT LEN x 
$■ THEN GO TO 1300 

1320 IF CODE x $■ >96 THEN LET x*=C 
HR$ (CODE x$-32) 

1330 FOR p=l TO 6: IF x$Od$(p) 
THEN NEXT p: GO TO 1300 
1335 IF p=2 THEN LET d=d(d,p>: G 
0 TO 1100 

1340 IF p<5 THEN GO TO 1400 
1350 LET j=VAL t*(p) 

1360 IF NOT -f(p) THEN GO TO 1300 
1365 IF j=f OR j->v THEN GO TO 50 
00 


zulässige Taste? 
umdrehen 

horizont. Beweg. 

neue vertik. Bewegung 
prüf., ob Gang da 
auf Ausgang prüfen 


1370 LET z=j 


neuer Ort 
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1380 GO TO 1100 
1400 IF NOT -f (d (d , p > ) THEN GO 
1300 

1410 LET j=VAL t*(d(d,p>> 

1420 IF j=0 OR j>v THEN GO TO 
00 


neuen Raum zeichnen 
T0 auf Gang prüfen 

Koordinaten aktualis. 
50 auf Ausgang prüfen 


1440 IF t$ (d (d , p) , 1) ="}< " THEN LE 
T x=j: GO TO 1460 
1450 LET y=j 

1460 LET d=d (d , p ) Perspektive verschieb. 

^ ^’Z'O 1 1OU neuen Raum zeichnen 

2000 REM b , f , r , 1 Perspektive verschieben und zeichnen 
2010 DATA VAL "1",VAL "2",VAL "3 
",VAL "4",VAL "6000",VAL "6600", 

VAL "6200",VAL "6100",VAL "6300" 

,VAL "6400" 

2020 DATA VAL "2",VAL "1",VAL "4 
",VAL "3",VAL "6600",VAL "6000", 

VAL "6100",VAL "6200",VAL "6300" 

,VAL "6400" 

2030 DATA VAL "3",VAL "4",VAL "2 
",VAL "1",VAL "6100",VAL "6200", 

VAL "6000",VAL "6600",VAL "6300" 

,VAL "6400" 

2040 DATA VAL "4",VAL "3",VAL "1 
",VAL "2",VAL "6200",VAL "6100", 

VAL "6600",VAL "6000",VAL "6300" 

,VAL "6400" 

2100 DATA ":<-l" , "x + 1" , "y-1" , "y+1 

fl M H 1t «p. ^ It 

5000 FOR *i=VAL "-20" TO VAL "20" Gratulation 
: BEER VAL ".01",j: NEXT j 
5010 CLS : PRINT AT VAL "10",VAL 
"10"; FLASH VAL "1";"DU BIST DR 
AUSSEN!" 


5020 IF NOT clock THEN GO TO 510 


0 


5030 PRINT ''"Uebrige Zeit;";t;" 
Sekunden" 

5040 IF t<VAL "10" THEN PRINT "0 
h, das war knapp." 

5050 IF t >=VAL "10" AND t<=VAL " 
30" THEN PRINT "Ganz schoen sehn 


eil..." 

5060 IF t >=VAL "30" THEN PRINT " 
Dafuer mach ich mir die Arbeit.. 


5100 LET a$="Noch ein Durchgang? 
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GO SUB 9000: IF CHR$ CODE a$< 

>"J" THEN GO TO 9999 

5110 LET a*="Die selbe Hoehle? " 

: GO SUB 9000: IF CHR-T CODE a*=" 

J" THEN LET d=-id: LET z=iz: LET 
y=i y: LET x=ix: GO SUB 6850: GO 
TO 200 

5120 GO TO 10 

5200 FOR x =VAL "20" TO VAL "-20" 

STEP VAL "-1" : BEEP VAL " . 01",x 
: NEXT x 

5210 CLS : PRINT AT VAL "10",VAL 
"14";"Schade!"' 'TAB VAL "4";"De 
ine Zeit, ist um." 

5220 GO TO 5100 

6000 PLOT VAL "96", VAL "67": DRA Gang voraus 
W f , VAL "42": DRAW VAL "64",-f: D 
RAW f,VAL "-42": DRAW VAL "-64", 
f 

6010 PLOT VAL "112",VAL "77": DR 
AW -f , VAL "21": DRAW VAL "32", t: 

DRAW -f , VAL "-21 " : DRAW VAL "-32" 

6020 PLOT VAL "96",VAL "67": DRA 
W VAL "16",VAL "10": PLOT VAL "9 
6",VAL "109": DRAW VAL "16",VAL 
"—11": PLOT VAL "160",VAL "109"; 

DRAW VAL "—16",VAL "-11": PLOT 
VAL "160",VAL "67": DRAW VAL "-1 
6",VAL "10" 

6030 FOR j=VAL "77" TO VAL "98": 

PLOT VAL "112",j: DRAW VAL "32" 

,f: NEXT j 
6040 RETURN 


6100 PLOT -f , VAL "44": DRAW VAL " 
16",VAL "8": DRAW f,VAL "72": DR 
AW VAL "—16",VAL "8" 

6110 PLOT VAL "16",VAL "52": DRA 
W VAL " —16" ,-f: PLOT VAL "16", VAL 
"124": DRAW VAL "-16",-f 
6120 RETURN 


Gang links 


6200 PLOT VAL "255", VAL "44": DR Gang rechts 
AW VAL " — 16" , VAL "8": DRAW -f , VAL 
"72": DRAW VAL "16",VAL "8" 

6210 PLOT VAL "239",VAL "52": DR 
AW VAL "16",-f: PLOT VAL "239",VA 
L "124": DRAW VAL "16",f 
6220 RETURN 
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6300 PLOT VAL "64" , VAL "175": DR 1 Gang aufwärts 
AW VAL "8",VAL "-IO": DRAW VAL " 

112“,f: DRAW VAL "8",VAL "10" 

6310 PLOT VAL "72",VAL "165": DR 
AW -f , VAL "10": PLOT VAL "184", VA 
L "165": DRAW f,VAL "10" 

6320 RETURN 

6400 PLOT VAL "64",f: DRAW VAL " Gang abwärts 
8",VAL "10"; DRAW VAL "112",-f: D 
RAW VAL "8",VAL "-10" 

6410 PLOT VAL "72",VAL "10": DRA 
W f,VAL "-10": PLOT VAL "184",VA 
L. "10": DRAW f , VAL "-10" 

6420 RETURN 

6500 CLS Raumumriß 

6510 PLOT -f , VAL "175": DRAW VAL 
"255", i : DRAW f,VAL "-175": DRAW 
VAL "--255" , f : DRAW -f , VAL "175" 

6520 PLOT VAL "32",VAL "155": DR 
AW VAL "192",f: DRAW i ,VAL "-134 
": DRAW VAL "-192" ,-f: DRAW -f , VAL 
"134" 

6530 PLOT -f , VAL "175": DRAW VAL 
"32",VAL "-20": PLOT VAL "255",V 
AL "175": DRAW VAL "-32",VAL "-2 
0": PLOT VAL "255",f: DRAW VAL " 

-32", VAL "21": PLOT -f,f: DRAW VA 
L. "32" , VAL "21" 

6540 RETURN 


6700 REM time 

6710 IF NOT clock THEN LET t=NOT keine Uhr nötig 
f; RETURN 

6720 LET s=PEEK 23672+256*PEEK 2 abgelauf. Zeit holen 
3673 


6730 LET t=limit-INT (s/50) 
6740 PRINT #f;AT f,28;t;" " 
6750 IF tOlt THEN BEEP .1,-8: 
ET lt=t 


verblieb. Sekunden 
ein Leerraum 
L jede Sekunde 1 Ton 


6760 RETURN 

6800 REM choose ex i t 


6810 GO SUB 6900 


6820 DATA x=l, 1 ,x=4,2,y=l,4,y=4, 
8,2=1 ,16,2=4,32 
6830 RESTORE'6820 
6840 FOR i=l TO 6: READ c,d: IF 
NOT c THEN NEXT i: GO TO 6800 
6850 LET mf- (z , y, x ) =CHR$ (CODE 
(z,y,x)+d) 
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6860 LET i :<=:<: LET iy=y: LET iz = 
z: LET id=d 
6870 RETURN 

6900 LET k = INT <RND*w>+l: LET y= 
INT (RND*h)+l: LET z=INT <RND*v> 
+ 1 

6910 RETURN 

6999 STOP 

7000 REM create maze 

7010 PRINT AT VAL "18",VAL "5";" 
Bitte warte ";v-l;" Minuten" 

7020 DATA 5<—1, y, z , x > 1, :< +1, y, z , ;<< 
w 

7030 DATA x, y-1 , z , y > 1, x , y+1, z , y< 
h 

7040 DATA x , y, z-1 , z >1 , :< , y , z +1 , z< 
v 

7100 DIM m$<v,h,w>: DIM r$(INT ( 
v*h*w*VAL ".67"),VAL "3"): DIM n 
$(VAL "6",VAL "3"): DIM i (VAL "6 
",VAL "4") 

7105 FÜR z=l TO v: FOR y=l TO h: 

LET m#- (z , y) = "©©©©©©" ! NE X T y: N 
EXT z 

7110 LET r=f: LET f:f=CHR* r 
7120 LET x = INT (RND*w)+ 1: LET y= 
INT (RND*h)+1: LET z=INT (RND*v) 
+ 1 

7130 LET mt(z,y,x)=CHR$ VAL "100 

II 

7200 60 SUB 7300 

7210 IF NOT r TUEN RETURN 

7220 GO SUB 7500 

7230 LET x =a: LET v=b: LET z=c 

7240 GO TO 7200 

7300 RESTORE 7020: FOR n=l TO 6: 
FOR. m=l TO 4: READ -f(n,m): NEXT 
rn: NEXT n 
7310 FOR n=l TO 6 

7320 LET j = INT (RND*6) +1: IF -f < j 

,1)=--1 THEN GO TO 7320 

7330 IF -f ( i , 4> THEN GO SUB 7400 

7340 LET f ( j,1>=-1 

7350 NEXT n 

7360 RETURN 

7400 IF m*<-f (j ,3) ,-f (j,2) ,-f (j , 1) ) 
<>"©“ THEN RETURN 

7410 LET m$ (-f (j , 3) , f (j , 2) ,f(j,l) 


s. Phantastisch! 


sechs kleine z 


kleines z 


)=-f#-s LET r=r+l 

7420 LET r$ (r) =CHR* f ( i , 1 > +CHR* 

-f (j,2>+CHR* f ( j ,3) 

7430 RETURN 

7500 LET x=CGDE r*(r,l>: LET v=C 
ODE r$(r,2): LET z=CODE r*(r,3>: 
LET r—r— 1 

7510 GO SI.JB 7600: IF NOT n THEN 
STOP 

7520 LET n=INT (RND*n)+l: LET a= 
CODE n$(n,l): LET b=CODE n$(n,2> 

: LET c=CÖDE n$(n,3> 

7530 GO SUB 7700 

7540 LET j =x: LET x=a: LET a=j 

7550 LET j=y: LET y=b: LET b=j 

7560 LET j=z: LET z=c: LET c=j 

7570 GO SUB 7700 

7580 RETURN 

7600 RESTORE 7020: LET n=f 
7610 FOR j=l TO 6 
7620 READ a,b,c,d 
7630 IF d THEN IF m*(c,b,a)<>"©" 
AND m$(c,b,aK>f$ THEN LET n=n + 
1: LET nf(n)=CHR* a+CHR* b+CHRf- 
c 

7640 NEXT j 
7650 RETURN 

7700 LET j =<a-x<>f) + (a-x >f) + (b-y 
< >f)*4+(b-y >f)*4+(c-z<>f)*16+(c- 
z>-f )*16 

7710 LET j=CODE <z,y,x>+j: IF 

j >100 THEN LET j=j-100 
7720 LET m*(z,y,x)=CHR$ j 
7730 RETURN 

8900 LET af="Zur Fortsetzung ENT 
ER druecken" 

9000 REM line input 

9010 INPUT (a$+" "); LINE a$: LE 

T end=NOT LEN a$ 

9020 FOR x — 1 TO LEN a$: LET a*(x 

)=CHR$ (CODE a$(x)-32*(a*(x)>="a 

")): NEXT x 

9030 RETURN 

9600 REM instructians 

9610 CLS : PRINT TAB 8;"*** HOEH 

LEN ***" 

9620 PRINT '"Du bist in einem zu 


kleines z 
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•faellig ge.waehlten Raum des d 

rei. di men = " ' "si onal en Hoehl ensyst 

ems.Jeder.Raum hat bis zu 6 Au 

sgaenge."'"Dein Blick ist jeweil 
s von"'"der Mitte des Raumes in 

die.Richtung, in die Du zuletz 

t." ' "gelaufen bist." 

9630 PRINT "Hier siehst Du, mit 
welchen Ta="'"sten Du Blick- und 
Bewegungs="'"richtung aendern k 
annst:" 

9640 PRINT "7 - vorwaerts"'"5 - 
links"' "8 - rechts"'"LJ - nach ob 
en"'"D - nach unten"'"B - 180 Gr 
ad-Drehunq" 

9650 GO SUB 8900 
9660 CLS 

9670 PRINT "Du kannst waehlen, o 
b Du gegen"'"die Zeit spielen mo 
echtest,ob"'"Du jeweils die Raum 
koordina="'"ten angezeigt haben 
moechtest"'"und wie gross das Ho 
ehlensy="'"stem sein soll." 

9680 PRINT "ACHTUNG! Deine Blick 
richtung geht immer in die Ri 
chtung, in die Du zuletzt gelau 
•fen bist. Dies gilt jedoch NIC 
HT -fuer Auf-und Abwaertsbewegung 
en. " 

9690 PRINT '" VIEL GLUECK!" 

9700 G0 T0 8900 
9999 STOP 
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Nützliche Subroutinen 
(Unterprogramme) 

Das ist die Art von Abschnitt, nach der ich in jedem Buch suche, 
das ich mir kaufe! Die meisten Programme benötigen immer 
wieder dieselben Subroutinen, und trotzdem schreiben manche 
Leute sie jedesmal, vielleicht mit ein paar Veränderungen, ganz 
neu. 

Fangen wir mit einer Allzweck-Eingabe-Subroutine an. Sie wan¬ 
delt zusätzlich alle Eingaben in Großbuchstaben um. Sie mag 
zwar nicht dauernd nötig sein, kann aber bei allgemeiner Ver¬ 
wendung viel Programmplatz sparen, wenn ein Programm nur 
auf große (oder wenn Sie wollen, kleine) Buchstaben prüft. 
Nehmen Sie den Befehl: 

200 IF x$ = “Y” OR x$ = y THEN GO TO 300 
Tritt so etwas in einem Programm mehrmals auf, kann es ziem¬ 
lich viel Platz und Laufzeit kosten. 

Die folgende Subroutine verlangt, daß die Stringvariable a$ ein 
Anforderungszeichen enthält, das vor den Eingabedaten ange¬ 
zeigt wird. Beim Rücksprung enthält die Stringvariable a$ die 
eingegebenen Daten in Großbuchstaben, während die Variable 
“END” aufwahr gesetzt wird, falls ein leerer Inputstring eingege¬ 
ben wurde. Das würde normalerweise behandelt werden als 
‘Ende des Laufs’ oder 'verwende einen Vorgabewert' - siehe 'Ja/ 
Nein-Input’. 

9000 REM Zeileneingabe 
9010 INPUT (a$ + LINE a$: 

LET end = NOT LEN a$ 

9020 FOR x = 1 TO LEN a$ 

9030 LET a$ (x) = CHR$ (CODE a$ (x) -32* 

(a$ (x) > = "a" AND a$ (x) < = “z")) 

9040 NEXT x 
9050 RETURN 

Ja/Nein-Input 

Diese Artvon Eingabe wird vermutlich häufiger verwendet als ir¬ 
gendeine andere, weil wegen der mangelnden ‘Formen’-Fähig- 
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keit von BASIC Daten in der Regel zeilenweise eingegeben wer¬ 
den. Benutzer von größeren Systemen haben den Vorteil der 
Eingabe im ‘Seitenmodus’, wo der Computer einen ganzen Bild¬ 
schirm voll Daten auf einmal schlucken kann. 

ZX-BASIC hat in meinen Augen eine Einschränkung: Wenn man 
bei einer Stringvariablen einen Slicer verwendet, also aus dem 
String etwas herausnehmen will, und der Slicerwert zu hoch ist, 
erscheint Fehlermeldung 3. Mir wäre ein Nullstring (Länge Null) 
lieber, weil dann das Programmieren eleganter erfolgen könnte. 
Das läßt sich mit ein bißchen Jonglieren umgehen (siehe‘Winke 
und Tips’), und normalerweise genügtes bei Ja/Nein-Input, sich 
das erste Zeichen anzusehen. Sie würden überhaupt nur auf “y" 
prüfen und alle anderen Antworten als "Nein” behandeln. Das 
nennt man einen Vorgabewert. 

Sobald eine Frage mit einer Ja/Nein-Antwort gestellt werden 
soll, verwenden Sie folgende Zeilen: 

100 LET m$ = “Ist das eine Frage?: GO SUB 9000 

110 IF CHR$ CODE a$ = Y THEN GO TO **** 
120 REM alles andere als Nein behandeln 
Das verwendet die obige Subroutine, aber noch wichtiger dabei 
ist, daß Zeile 110 (oder was Sie sonst verwenden) nicht zu ei¬ 
nem Fehler führt, wenn nichts eingegeben wird. 

Umwandlung Dezimal/Hex 

Sie werden diese Routine im Abschnitt Maschinencode dieses 
Bandes häufig verwendet sehen. Sie verlangt, daß in Variable Fl 
ein Wert gegeben wird und beim Rücksprung H$ den entspre¬ 
chenden Wert in Hex enthält. 

Sie können die Subroutine auf zweifache Art eingeben - GO 
SUB 9100, wobei H$ eine FHexzahl von vier Zeichen enthält, 
oder GO SUB 9120, wo es eine Hexzahl von zwei Zeichen hat. 
Mit zwei verschiedenen Eingaben können Sie 8- oder 16 Bit- 
Werte in Hex übertragen. 

9100 REM let h$ = hex $ (h) 

9110 LET h$ = GO TO 9130 (vier Leerräume) 

9120 LET h$ = "" (zwei Leerräume) 

9130 LET hl = h: FOR x = LEN h$ TO 1 STEP -1 : 
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LETxl = hl -INT (h1/16)*16: 

LET h$ (x) = CHR$ (x 1 + CODE “0" + 7* 

(x 1 > 9)): 

LET hl = INT (hl/16) 

NEXTx 
9140 RETURN 

Umwandlung Hex/Dezimal 

Das ist natürlich die Umkehrung der obigen Subroutine. Sie ver¬ 
langt eine Variabel H$, die eine Hexzahl in Großbuchstaben ent¬ 
hält Beim Ausgang enthält die Variable H$ den Dezimalwert. 
9200 REM let h = dez (h$) 

9210 LETh = 0: 

FOR x = 1 TO LEN h$: 

LET h = h*16 + CODE h$ (x)^8-7* (h$ (x) > "9"): 

NEXTx 
9220 RETURN 

Stringerkennung 

Sie werden ziemlich häufig prüfen müssen, ob ein String einen 
zweiten enthält. Ein Hauptbeispiel hier ist, wenn ein Pro¬ 
gramm den Benutzer bittet, eine Antwort auf eine Frage einzu¬ 
geben: 

Wie heißt die Hauptstadt von Niedersachsen? 

Gibt der Spieler ‘Hannover’ ein, ist alles gut, weil das Programm 
vermutlich darauf prüft (und Großbuchstaben berücksichtigt). 
Aber wenn eingegeben wird “Hauptstadt ist Hannover” oder 
"Das ist Hannover", was hat man für Chancen? 

Die folgende Subroutine erfordert zwei Variable - w$, die den 
zu suchenden String enthalten sollte, und x$, die den String ent¬ 
halten sollte, der in w$ zu finden ist. 

Beim Rücksprung wird die Variable X danach gesetzt, ob X$ in 
W$ gefunden ist oder nicht. Wenn nicht, erhält X den Wert 
Null. Wenn doch, enthält X die Position des Vorkommens von 
X$ innerhalb von W$. 

Hier ein paar Beispiele, die W$, X$ und den Wert von X beim 
Rücksprung zeigen: 
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W$ enthält 

X$ enthält 

X beim Rücksprung 

Hannover 

Hannover 

1 

Es ist Hannover 

Hannover 

7 

Ist es Bonn? 

Hannover 

0 

Es ist Hannover 

ist 

4 


9300 REM let x = instr (w$, x$) 

9310 FOR x = 1 TO LEN w$-LEN x$ + 1: 
IF x$ = w$ (x TO x + LEN x$ -1) 

THEN RETURN 
9320 NEXT x: LET x = 0 
9330 RETURN 


Numerische Umwandlung 


Der Spectrum enthält einige überaus leistungsfähige Funktionen 
für die Prüfung von Datenwerten, aber es gibt keine Funktion, 
die einem Programm gestattet würde, zu prüfen, ob ein gegebe¬ 
ner String eine zulässige Zahl enthält. 

Programmeerfordern möglicherweise die Verwendung von IN¬ 
PUT LINE a$, um einen String einzugeben, da die Verwendung 
von INPUT mit einer numerischen Variable zu sonderbaren Fol¬ 
gen führt, wenn versehentlich Buchstaben eingegeben werden. 
Probieren Sie: 

10 INPUTx 


Geben Sie, wenn das gefahren wird, Werte ein wie 10,230, RAT, 
X und anderes, um zu sehen, was dann geschieht. 

Die folgende Subroutine verlangt, daß die Variable A$ einen 
String enthält, der darauf geprüft werden soll, ob er eine zulässi¬ 
ge Zahl ist. Beim Rücksprung enthält Variable X einen Zeiger 
zum letzten gültigen numerischen Zeichen. Er kann dann dazu 
benützt werden, ein angemessenes Vorgehen zu bestimmen. 
Beispiel: 

A$ enthält X bei Rücksprung 


"1234" 4 

“1X34” 1 

"Rat” 0 

“12 Baumweg” 2 
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Nach dieser Information könnte ein Programm Zeilen wie die 
folgenden enthalten: 

1100 GO SU B 9400 

1110 IF x = 0 THEN PRINT "Das ist keine Zahl!": 

GOTO 

oder... 

1100 GO SUB 9400: IF NOT x THEN GO TO 1200 
1110 LET Wert = VAL a$ (TO x) 

Hier die Subroutine: 

9400 REM let x = numptr (a$) 

9410 FOR x = 1 TO LEN a$: 

IF a$ (x) > “0" AND a$ (x) < "9” THEN NEXT x 
9420 LET x = x - 1 
9430 RETURN 

Zahlen anzeigen mit Randausgleich 

Viele Programme, die Zahlen anzeigen oder ausdrucken, wür¬ 
den sehr davon profitieren, wenn die Werte in Spalten erschie¬ 
nen, nach dem Dezimalpunkt ausgerichtet. Die untenstehende 
Subroutine zeigt die Zahl in der Variablen V in Spalten an, wobei 
die rechte nach der Tabulatorposition in Variable C ausge¬ 
richtet wird. Verlangt der anzuzeigende Wert mehr Spalten als 
vorgesehen, wird die Zahl in der nächstfolgenden Zeile ange¬ 
zeigt. 

In den meisten Fällen verlangt die Zahl zwei Dezimalstellen (bei 
Geldbeträgen), aber in Fällen, wo mehr gebraucht wird, können 
Sie die Variable N auf die beim Ausdrucken erforderliche Zahl 
von Dezimalstellen setzen. 

Beim normalen Gebrauch würde N daher für den ganzen Lauf 
des Programms auf2 gesetzt werden. Sie ändern die Subroutine 
vielleicht lieber ab, um die Variable N überhaupt nicht verwen¬ 
den zu müssen - abgesehen davon, daß man durchgehend “n” 
durch "2" ersetzen kann, lassen sich die Zeilen 9510 und 9520 
ersetzen durch die Einzelzeile 9510 LET z$ = "100". 

9500 REM v in Spalten bei c mit n Dezimalstellen 
9510 LET z$ = (String initialisieren) 

9520 FORz = 1 TO n:LET 

z$ = z$ 4- "0": NEXT z (Dezimalstellen) 
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9530 LET x 1 = INT ABS v: (Pfund und Pence) 

LET xp = INT ((ABS v - x 1)* 10 n) 

9540 LET z$ = (“-" AND v < 0) + STR$ x 1 + 

(z$ (TO n - LEN STR$ xp) + 

(STR$ xp + z$)) (TO n) (Bild erzeugen) 
9550 PRINT TAB 

(c - LEN z$ + 1); z$; (es anzeigen) 

9560 RETURN 

Nun ist es einfach, den Anfangsteil dieses Unterprogramms so 
zu erweitern, daß Anzeigemasken verwendet werden können. 
Statt die Variable n auf die Zahl von Dezimalstellen zu setzen, 
soll die Variable u$ auf eine ‘Maske’ der erwünschten Anzeige 
gesetzt werden. Die Maske sollte ein Zeichen “9" immer dort 
enthalten, wo eine Zahl angezeigt werden soll, und an der Posi¬ 
tion des Dezimalpunktes einen Punkt. So würde LET u$ = “999- 
99.99” die Routine veranlassen, den Wert in v mitzwei Dezimal¬ 
stellen anzuzeigen. Die Zahl wird, falls sie zu groß ist, (von links 
her) gekürzt. 

9500 REM v mit Maske u$ bei Spalte c anzeigen 

9510 LETz$ = “”:LETx1 =0 

9515 FORz = 1 TO LEN u$ (Dezimalstellen zählen) 

9520 IF x 1 THEN LET z$ = z$ + “0" 

9525 IF u$ (z) = THEN LET x 1 = 1 
9530 NEXT z: LET x 2 = LEN z$ 

9535 LET x 1 = INT ABS v: 

LET xp = INT 

((ABS v - x 1)* 10 1 x 2) (ganze Zahl u. Brüche) 
9540 LET z$ = (“-" AND v < 0) 

+ STR$ x 1 + (“.’’ + (z$ 

(TO n - LEN STR$ xp) + 

(STR$ xp + z$)) (TO n) 

AND x 2) (Bild erzeugen) 

9550 IF LEN z$ > LEN u$ 

THEN LET z$ = z$ (LEN 

z$ - LEN u$ + 1 TO) (notfalls kürzen) 

9555 PRINT TAB (c - LEN 

z$ + 1);z$ (Bild anzeigen) 

9560 RETURN 
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Kontoführung 

Viele Leute sehen im Spectrum mehr als eine Spielmaschine. Für 
sie kann er ihre Sammlungen verwalten, im Geschäft von Nutzen 
sein und sogar in begrenztem Maß als Textautomat dienen. 
Das vorige Kapitel befaßte sich mit der Verwendung von Stan¬ 
dardroutinen, und in diesem können Sie sehen, wie die meisten 
davon praktisch gut genutzt werden. Mit dem Programm kön¬ 
nen Sie über Ihre Ein- und Ausgaben Buch führen, ohne bei der 
Bank anfragen oder in der Tasche nachsehen zu müssen. 

Die in diesem Programm genutzten Methoden sind dazu ge¬ 
dacht, Ihnen zu zeigen, wie Sie eigene Anwendungsmöglichkei¬ 
ten finden und Abläufe nutzen können, die in der Computerin¬ 
dustrie schon seit vielen Jahren verwendet werden. 

Eine dieser Methoden ist die ‘Menüwahl’. Der Computer bietet 
eine Liste aller in diesem Fall verfügbaren Operationen und for¬ 
dert den Benutzer auf, seine Wahl zu treffen. Sobald das Pro¬ 
gramm die Option erhalten hat, entscheidet es, was zu tun ist, 
um diesen Befehl auszuführen, wobei berücksichtigt wird, daß 
der Benutzer die Optionen vielleicht in einer normalerweise 
nicht zu erwartenden Reihenfolge wählt. 

Eine andere Technik ist die der Datenverwaltung. In diesem Pro¬ 
gramm können Sie die Einzelheiten für alle Ihre laufenden Auf¬ 
träge, festen Kosten, Eingänge und Abhebungen speichern. Was 
geschieht dann, wenn die Rate für die Hypothek kleiner wird? 
Sie müssen offenkundig den entsprechenden Auftrag ändern, 
damit das System mit Ihrem Bankkonto in Übereinstimmung 
bleibt. Mit den Datenverwaltungs-Routinen in diesem Pro¬ 
gramm können entweder die Werte oder der beschreibende 
Text mit einem Mindestaufwand an Mühe und Umständen ver¬ 
ändertwerden. Sie geben lediglich an, welche Zeile auf dem Bild¬ 
schirm wie verändert werden soll; das Programm löscht die be¬ 
treffenden Posten und erwartet Ihre korrigierten Daten als 
Ersatz für die alten. All das wird auf dem Bildschirm vorgenom¬ 
men, so daß Sie mühelos erkennen können, was Sie im Verhältnis 
zu allen verfügbaren Posten ändern. 

Sie werden sich auch über die Probleme des Datenzugangs im 
klaren sein. Er muß stets gründlich geprüft werden, um zu ge¬ 
währleisten, daß keine störenden Elemente eingegeben werden. 
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Beispielsweise kann eine Monatszahl immer nur im Bereich 1-12 
liegen - wer hat schon von einem Jahr mit 13 Monaten gehört? 
Der Ausdruck des Programms ist ein Abschlußblatt, das die ver¬ 
fügbaren Barbeträge auf Ihrem Konto anzeigt. Das kann eine völ¬ 
lig zutreffende Wiedergabe Ihres Bankkontos sein oder auch 
nicht, weil Sie die Kosten unregelmäßig erscheinender Posten 
über eine Reihe von Monaten strecken können. Gas, Strom, Te¬ 
lefon und Mieten sind für eine solche Einrichtung die Hauptkan¬ 
didaten, weil diese Rechnungen oft vierteljährlich oder auch jähr¬ 
lich erscheinen. Mit dem Programm können eingeplante Posten 
in regelmäßige Beträge aufgeteilt werden, die nach Ihrer Schät¬ 
zung auf den gesamten Rechnungsbetrag hinauslaufen, sobald 
dieser anfällt. 

Dieses Abschlußblatt muß alle Beträge in sauberen Kolonnen, 
ausgerichtet nach dem Dezimalpunkt, anzeigen. Die Subroutine, 
mit der das erreicht werden kann, wurde im vorigen Kapitel ge¬ 
zeigt. Hier können Sie sehen, wie sie das Aussehen eines Be¬ 
richts verbessert. 

Sehen wir uns an, wie Sie dieses Programm nutzen können. 
Geben Sie das Programm ein und sichern Sie es: 

SAVE “BUDGET” LINE 1 

Zunächst werden Sie keine Einzelheiten auf Band haben, die vor¬ 
gelegt werden können, so daß alles von Anfang an eingegeben 
werden muß. Diese Einzelheiten sind: 

- Einzelheiten über Einkommensquellen 

- Einzelheiten über Daueraufträge 

- Berücksichtigung aller eingeplanten (oderübereinen länge¬ 
ren Zeitraum verteilten) Rechnungen 

- Ihr derzeitiger Kontostand 

Im Idealfall sollten Sie am Ende eines Monats anfangen, wenn Ihr 
Konto den Tiefststand erreicht hat. 

Wenn das Programm beginnt, verlangtes die laufende Monats¬ 
zahl: 

Eingeben laufende Monatszahl: 

Damit werden die Namen der Bänder bestimmt, die während 
des Laufs verwendet werden sollten, und außerdem das Datum, 
das bei allen Berichten erscheinen soll. 
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Sie sollten diese Zahl (1 fürjanuar, 2für Februar, usw.) eingeben. 
Das Programm prüft sie und liefert dann auf dem Bildschirm das 
Hauptmenü: 


Kontoführung 


Optionen: 

1) Band vom Vormonat laden 

2) Daueraufträge eingeben/ändern 

3) eingeplante Posten eingeben/ändern 

4) Einkommensdetails eingeben/ändern 

5) Abhebungen eingeben 

6) Abschluß anzeigen 

7) Einzelheiten dieses Monats sicherstellen 

8) Saldo 

9) Ende 

Ihre Wahl eingeben: 

In diesem Stadium müssen Sie die Optionen 2, 4, 8 und mögli¬ 
cherweise 3 nehmen. 

Die Optionen 2, 3 und 4 wirken auf ähnliche Weise. Wenn Po¬ 
sten vorhanden sind, werden diese auf dem Bildschirm für Sie 
angezeigt. Jede Zeile wird ungefähr so aussehen: 


Zeilenbeschreibung 

1 Hypothek 

2 Auto Rate 

3 Fernseher Rate 


Wert 

1580.00 

600.00 

80.00 


Wollen Sie etwas verändern? 

Sie sind eingeladen, hier beliebigzu verändern. Wenn Sie ‘Ja’ ein¬ 
geben, fordert das Programm Sie auf, die richtige Zeilennummer 
einzugeben. Das ist die Zahl in der linken Spalte. 

Wenn Sie die Zeilennummer eingeben, wird der entsprechende 
Eintrag auf dem Schirm gelöscht, und Sie erhalten die Aufforde¬ 
rung, den beschreibenden Text (höchstens 15 Zeichen) und 
den Wert einer Zahlung einzugeben. Die neuen Eingaben wer¬ 
den anstelle der alten auf dem Bildschirm eingefügt. Sie können 
auf dem Bildschirm so viele Zeilen verändern, wie Sie wollen, 
und das geht so weiter, bis Sie keine Zeilennummer mehr einge¬ 
ben, sondern lediglich ENTER drücken. 
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Als nächstes wird Ihnen angeboten, neue Posten einzugeben. Ein 
'Ja' veranlaßt das Programm, den beschreibenden Text und den 
Wert von Posten anzugeben. Das setzt sich fort, bis Sie ENTER 
drücken, sobald Sie zu einer neuen Textbeschreibung aufgefor¬ 
dert werden. 

Keine Sorge, wenn Sie beim Schreiben Fehler machen - Sie kön¬ 
nen jederzeit dieselbe Option auf dem Bildschirmmenü erneut 
wählen und die Änderungs-Einrichtung nutzen, um alles abzuän¬ 
dern, was Ihnen nicht behagt. 

Bei den eingeplanten Posten geht es etwas anders. Erstens wir¬ 
ken sie sich auf den konkreten Stand Ihres Bankkontos nicht aus, 
weil sie nur Vorkehrungen gegenüber künftigen Rechnungen 
sind. Innerhalb des Programms Ihrer Bilanz wird eine zweite 
Summierung vorgenommen, soweitsiedie eingeplanten Beträge 
betrifft. Wenn Sie sie verwenden wollen, sollten Sie daran den¬ 
ken, daß die vorgetragene Gesamtsumme der eingeplanten Po¬ 
sten dem jeweils vorhandenen Betrag an frei verfügbarem Bar¬ 
geld entspricht. Der Unterschied zwischen diesem Wert und 
dem tatsächlichen Kontostand ist der Gesamtbetrag erforderli¬ 
chen Geldes - lassen Sie sich nicht verlocken, ihn auszugeben! 
Gelegentlich wird Ihr tatsächlicher Abschluß unter dem einge¬ 
planten liegen, weil bei Eingang jeder Rechnung der Betrag als 
Abhebung eingetragen wird und den tatsächlichen Abschlußbe¬ 
trag verringert. Im nächsten Monat erfolgt aber die nächste Zah¬ 
lung des eingeplanten Betrages und bringt mit der Zeit alles wie¬ 
der ins Lot. 

Wenn der Unterschied zwischen beiden Abschlüssen zu groß 
wird, können Sie das durch Verwendung von Option 8 auf dem 
Schirmmenü ändern. Sie können entweder den Abschluß selbst 
ändern (wie Sie es anfangs tun müssen, damit das System den 
derzeitigen Stand kennt) oder den Stand bei den eingeplanten 
Beträgen. Setzen Sie zunächst beide Beträge auf denselben 
Wert. 

Abhebungen (Option 5) werden als Summenzahl eingesetzt, 
weil dieses Programm kein Interesse daran hat, einzelne Schecks 
unter die Lupe zu nehmen. Alle Zwischenzahlungen auf Ihr 
Konto sollten in diesem Stadium als Reaktion auf die Frage ‘Zu¬ 
sätzliche Eingänge’ ebenfalls eingegeben werden. Eine Null-Ein¬ 
gabe auf eine dieser Fragen wird als Nullwert behandelt. 
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Zuletzt können Sie das Abschlußblatt fahren. Das kann als Op¬ 
tion zum Drucker geschickt werden (“Hardcopy?"). Alle Posten 
werden aufgeführt und zeigen die Postenart als Abkürzung von 
drei Zeichen an, EIN für Einkommen, D/A für Dauerauftrag und 
ZUK für eingeplante Beträge. 

Bei Einkommensposten werden die Werte versetzt nach links 
angegeben, so daß Einkommen von ausgehendem Bargeld leicht 
unterschieden werden kann. 

In diesem Stadium werden keine Gesamtbeträge fortgeschrie¬ 
ben, so daß etwaige Fehler in den Beschreibungen oder Werte 
auszubessern sind und ein neues Abschlußblatt erstellt werden 
kann. 

Schließlich können Sie die Einzelheiten zur Vorbereitung auf den 
folgenden Monat auf einer Kassette sicherstellen. Wählen Sie 
Option 7 und legen Sie eine leere Kassette ein. Gespeichert wer¬ 
den zwei Arrays, V$ () und VQ, so daß Sie zweimal die Meldung 
“Start tape, then press any key" sehen. Sie können das Band da¬ 
zwischen weiterlaufen lassen. 

Im folgenden Monat ist als erste Option 1 zu wählen, die Sie auf¬ 
fordert, das so gesicherte Band zu laden und Beschreibung, 
Werte und Abschlüsse einzugeben. 

Bei Nutzung von Option 7 werden die Abschlußbeträge fortge¬ 
schrieben, die Bereiche Gesamtabhebungen und Zusatzeingän¬ 
ge auf Null zurückgestellt. 

Bevor Sie das Programm verwenden, sollten Sie den Wert von 
Zeile 10 überprüfen. Sie enthält die Höchstzahl an Posten, die 
nach Ihrer Schätzung auf dem Abschlußblatt erscheinen werden. 
Beachten Sie, daß sie nicht erfordert, Details einzelner Schecks 
festzuhalten. Der Wert 64 dürfte normalerweise mehr als aus¬ 
reichend sein, aber beim 16K-$pectrum können Sie ihn ohne 
Probleme auf rund 120 erhöhen. 

1 REM Konto-fuehrung 

2 REM © 1982 Phipps Associate 
s 

10 LET ma:<items=64 nach Wunsch ändern 

20 GO SUB 7000s REM Initialisi 
eren 

100 LET a$="Laufende Monatszahl 
einqebens“; GO SUB 9000s IF end 
THEN GO TO 100 


88 


TUEN LET Monat Bestätigen 


110 GO SUB 9400: IF x 
Monat=VAL af ( TO ;<) 

120 IF Monat<1 OR Monat>12 THEN 
GO TO 100 

130 RESTORE 9910: FOR x = l TO Mo 
nat: READ n$: NEXT x 
1000 REM Hauptmenue 
1010 CLS 

1020 PRINT TAB 9; INVERSE l;"Kon 
tof uehrunq " ; INVERSE 0 
1030 F'R I NT ' " Op t i orten: " ' ' 


1040 PRINT 
t laden" 

1050 PRINT " 
ingeben/ 

1060 PRINT " 
en eingeben/ 
1070 PRINT " 
s eingeben/ 
1080 PRINT " 
ben " 

1090 PRINT " 
en" 

1100 PRINT " 
ses Monats 
1110 PRINT " 
1120 PRINT " 
1200 LET af= 


(1) Band vom Vormona 

(2) Dauerauftraege e 
aendern" 

(3) eingeplante Post 
aendern" 

(4) Einkommensdetail 
aendern" 

(5) Abhebungen einge 

(6) Abschluss anzeig 


(7) 

( 8 ) 
(9) 
"Gi b 


GO SUB 9000: 


Einzelheiten die 
sicherstel1en" 
Saldo" 

Ende" 

deine Wahl ein: 
IF end THEN GO T 


0 1200 

1210 GO SUB 9400: IF NOT x THEN 
GO TO 1200 

1220 LET Wahl =VAL af < TO x) 

1230 IF Wahl<1 OR Wahl>9 THEN GO 
TO 1200 

1300 GO SUB 2000+(Wahl-1)*100 
1310 GO TO 1000 

2000 REM letzten Monat eingeben 
2010 LET x=Monat-l: IF x=0 THEN 
LET x = 12 

2020 LET ff="MONAT"+STRf x 
2030 LET af="Band laden "+ff+CHR 
f 13+"Druecke ENTER, wenn -fertig 


2040 GO SUB 9000 
2050 LOAD ff- DATA vf () 
2060 LOAD ff DATA v<> 
2070 RETURN 


ablehnen, 
wenn ungültig 

Mo nat sst ring 
holen 


Wahl bestätigen 


entsprechende Routine 


Bandname 


Beschreibungen 

Werte 
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2100 REM Dauerau-ftraege 
2110 LET t=2: 60 SUB 8000 
2120 RETURN 

2200 REM eingeplante Ausgaben 

2210 LET t=3: 60 SUB 8000 

2220 RETURN 

2300 REM Einkommen 

2310 LET t=l: 60 SUB 8000 

2320 RETURN 

2400 REM Abhebungen 

2405 DIM W (2) Eink./Abhebungen 

2410 LET a$="Abhebungen gesamt e 
inqeben:": 60 SUB 9000: IF end i 
HEN RETURN 

2420 LET w(1)=VAL a$ 

2430 LET a$="Zusatz eingaenge ein 
geben:": 60 SUB 9000: IF end THE 
N RETURN 

2440 LET w(2)=VAL af- 
2450 RETURN 

2500 REM Abschluss anzeigen 

2510 LET a$="Hard copy?": 60 SUB s."Winke u. Tips' 
9000: LET dev=2+ (CHR£- CODE a£=" 

J") 

2520 CLS 

2530 PRINT #dev; INVERSE l;"Ausq 
leich"; INVERSE'0;" ";n$ 

2540 PRINT #dev: PRINT #dev; INV 
ERSE 1;"Beschreibung eintippen"; 

TAB 27;"Wert"; INVERSE 0 
2550 PRINT #dev 
2560 60 SUB 6000: REM Meldung 
2570 RETURN 

2600 REM Diesen Monat sichern 

2610 LET V (V ( 1 ) +2) =: t ( 1 ) : LET V ( V Summen aktualisieren 
(1) +3) =t (2) 

2620 SAVE "MONAT"+STR£ Monat DAT Beschreibungen 
A vto 

2630 SAVE "MONAT"+STR£ Monat DAT werte 
A v () 

2640 PRINT AT 21,0;"Band bezeich 

nen als ""MONAT";Monat;. 

2650 DIM w(2): REM Monatsin-forma 
tion loeschen 
2660 60 SUB 8900 
2670 RETURN 

2700 REM Ausqleich S/H anpassen 
2710 CLS 
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2720 FOR t=l TO 2 

2730 PRINT "Laufend S/H 

2740 PRINT "Tatsaechlich" AND t= 

1;"Einqeplante Posten" AND t=2; 

2750 LET c=31: LET v=v(v(1)+t+1) 

: GO SUB 9500 

2760 LET a$="Ist das richtig?": 
GO SUB 9000: IF CHR* CODE aT="J" 
THEN GO TO 2790 

2770 LET a$="Neuen Kontostand ei 
ngeben:": GO SUB 9000: IF end TH 
EN GO TO 2790 

2780 LET v(v(1)+t+l)=VAL aT: GO 

TO 2750 

2790 NEXT t 

2795 RETIJRN 

2800 REM Ende 

2810 CLS : GO TO 9999 

6000 REM Mel dunq 

6010 LET t<l)=v(v<l)+2>: LET t(2 
)=v(v(l>+3> 

6020 LET uT="99999.99": LET c=28 
6030 LET x$="S/H": GO SUB 6500 
6100 FOR t=l TO 3 
6110 FOR n=2 TO v(l)+l 
6120 IF tOCODE vT (n> THEN GO TO 
6200 

6130 PRINT #dev; sT- (t) ; TAB 5; vT (n 
,2 TO ); 

6140 LEt c=31: IF t=l THEN LET c 
=28 

6150 LET v=v(n>: GO SUB 9500 

6155 PRINT #dev 

6160 IF tOl THEN LET v=v*-l 

6170 LET t(2)=t(2)+v: IF t<>3 TH 

EN LET t(1)=t(1)+v 

6200 NEXT n 

6210 NEXT t 

6220 FOR t=l TO 2 

6225 PRINT #dev;TAB 5;tT(t+3); 

6230 LET c=28+3*(t = l) ' 

6235 LET v=w(t>: GO SUB 9500 
6240 IF t=l THEN LET v=v*-l 
6250 LET t(l)=t(l)+v: LET t(2)=t 
(2) +v 

6260 NEXT t 
6300 PRINT #dev 

6310 LET ;<T="C/F": GO SUB 6500 


Abschlüsse 

Maske anlegen 
Abschlüsse anzeigen 
Postenkategorien 

rieht. Typ finden 

anzeigen 

Soll/Haben 

Wert anzeigen 

Vorzeichen d. Typs 
Abschluß 

neue Summen 
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6350 IF dev=2 THEN GO SUB 8900 Pause, wenn auf Schirm 

6360 LET dev=2 

6370 RETURN 

6500 REM Gesamt 

6510 FOR x = l TO 2 

6520 PRINT ttdev; TAB 5; ;<*■;" ";"Ta 

tsaechlich" AND x : =l; "eingeplante 

Posten" AND x=2; 

6530 LET C--28: I-.ET v=t(x): GO SU 
B 9500 

6540 PRINT #dev 
6550 NEXT x 
6560 RETURN 

7000 REM Initialisieren 
7010 LET Monat-0 

7020 DIM vT(maxitems+1,16): DIM 
v(maxiterns+3) 

7030 RESTORE 9900: READ n 
7040 DIM t$(n,15): DIM sT(n,3): 

DIM r(22): DIM t(2) 

7050 FOR X = 1 TO n: READ t T' (X) : N Kategoriebeschreib. 
EXT x 

7055 FOR X — 1 TO n: READ sT(x) : N kurze Beschreibungen 
EXT x 

7060 LET dev=2: REM Vargabeschir 
m 

7070 DIM w(2) 

7090 RETURN 

8000 REM Einzelheiten festhalten 
8010 LET i =0: LET r—0 Postenzäh ler/Reihe 

8020 LET m$="ERGAENZEN"; GO SUB Modus/Rubrik ändern 
8800 

8040 FOR n=2 TO v(l)+l Tabelle ablesen 

8050 IF CODE v$(ni<>t THEN GO TOrichtigerTyp? 

8200 

Sü60 LET i—i + 1 Postenzähler 

8070 IF r+h=20 THEN GO SUB 8500: Bildschirm voll 
GO SUB 8800 

8080 F*R I NT AT r+h , 0; r +1; TAB 5; vT Posten anzeigen 
(n,2 TO ); 

8090 LET c=31: LET uT="99999.99" 

: LET v=v(n): GO SUB 9500 

8100 LET r=r+l: LET r(r)=n nächste Reihe 

8200 NEXT n 

8210 IF r THEN GO SUB 8500: REM 
Ergaenzen 

8220 LET m$= "EI NFUEGEN" ; GO SUB neueinfügen 
8800 
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8230 LET a$="Neue eirvfueqen? 

GG SUB 9000 

8240 IF CHR$ CODE a$O n J" THEN R 
ETURN 

8250 IF v(1)=maxitems+1 THEN LET 
a$="Tabelle voll. ENTER druecke 
n": GO SUB 9000: RETURN 
8260 LET Posten=v(1)+2: GO SUB 8 
600: IF end THEN RETURN 
8270 LET v(l)=v<l)+l 
8280 GO TO 8250 
8500 REM EU 1 schirm 
8510 LET a$="Willst du veraender 
n?": GO SUB 9000 

8520 IF CHR$ CODE a*<>"J" THEN R 
ETURN 

8530 LET a$="Zeilennummer eingeb 
en:": GO SUB 9000: IF end THEN R 
ETURN 

8540 GO SUB 9400: IF NOT :< THEN 
GO TO 8530 

8550 LET y=VAL a$( TO x): IF y< 1 
OR y>r THEN GO TO 8530 
8560 LET F'osten=r (y) : PRINT AT h 
+y~l,0;y,,AT h+y-1,5; 

8570 GÖ SUB 8600: IF end THEN GO 
TO 8570 

8580 GO TO 8530 
8600 REM Posten aendern 
8610 INPUT "Text einqeben:"; LIN 
E a$: LET end=NOT LEN a$: IF end 
THEN RETURN 

8620 LET v* (Posten) =CHR$ t+a$: P 
RINT TAB 5;a$; 

8630 LET a$="Wert eingeben:": GO 
SUB 9000 

8640 LET v(Posten)=VAL a$ 

8650 LET c=31: LET u$="99999.99" 
: LET v=v(Posten): GO SUB 9500 
8660 RETURN 

8800 REM Ueberschr i -f ten 
8810 CLS : LET r=0 
8820 PRINT INVERSE l;t$(t>; INVE 
RSE 0;" ";nt;TAB 26, INVERSE l;m 
INVERSE 0' 

8830 PRINT : PRINT INVERSE l;"Ze 
i 1 enbeschrei bung " ; TAB 27; 11 Wert " ; 
INVERSE 0 


8840 LET h=4: PRINT AT h,0; 

8850 RETURN 

8900 REM ENTER druecken 

8910 LET a$="Druecke ENTER zur F 

ortSetzung" 

9000 REM Zei 1 ertei nqabs übliche Subroutinen 

9010 INF'UT (at+" LINE at: LE 

T end=N0T LEN at 

9020 FÜR x = l TO LEN at: LET at(x 
) =CHRt (CODE at <:<) -32* (at- (:< ) >= "a 
" AND at <x)< = "z"> ) : NEXT k 
9030 RETURN 

9400 REM let x—numptr(at) 

9410 FOR x = l TO LEN at: IF at(x> 

>="0" AND at (x ) < = "9" THEN NEXT :< 

9420 LET -1 
9430 RETURN 

9500 REM Verwendung anzeigen 
9510 LET zt="LEf x1=0 
9515 FOR z=l TO LEN ut 
9520 IF xl THEN LET zt=zt+"0" 

9525 IF u$(z)="." THEN LET xl=l 
9530 NEXT z: LET x2=LEN zt 
9535 LET xl=INT ABS v: LET xp=IN 
T ((ABS v-xl )*10-'-x2) 

9540 LET zt=("-" AND v<0)+STRt x 
1+("."+(z t( TO x 2-LEN STRt x p) + ( 

STRt xp+zt))( TO x2) AND x2) 

9550 IF LEN zt>LEN ut THEN LET z 
t=zt(LEN zt-LEN ut+1 TO ) 

9555 PRINT #dev;TAB (c-LEN zt+1) 

» 

9560 RETURN 

9900 DATA 5 Zahl der Beschreib. 

9901 DATA "Einkommen" 

9902 DATA "Dauerau-ftraege" 

9903 DATA "PIanungsdetai1s" 

9904 DATA "Abhebungen" 

9905 DATA "Zusatzeingaenqe" 

9906 DATA "EIN" , "DA" , "EP" , "ABH" , kurze 

Beschreibungen 

9910 DATA "Januar","Februar","Ma 
erz","April","Mai","Juni" 

9911 DATA "Juli ","August","Septe 
mber","Oktober","November","Deze 
mber " 

9999 STOP 
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Roboterjagd 

Sie sitzen in der Falle in einem Gefängnisgelände, umgeben von 
einem elektrisch geladenen Zaun. Den Zaun berühren bedeutet 
sofortigen Tod - vermeiden Sie das um jeden Preis. Die Robo¬ 
terwächter haben Sie bemerkt und sind schon unterwegs zu Ih¬ 
nen - ein Entkommen ist nicht möglich! 

Um von ihnen nicht erwischt zu werden, müssen Sie versuchen, 
Sie an die Zäune zu führen und sie außer Gefecht zu setzen. Das 
hat nur einen kleinen Haken - sobald ein Wächter ausgeschaltet 
ist, fällt auch der Hochspannungsmast aus, so daß die restlichen 
Wächter darüber hinweggehen können. 

Das Spiel ist recht amüsant und kann auch von den jüngeren Fa¬ 
milienmitgliedern leicht bewältigt werden. 

Die Benutzergrafik wird entsprechend den verschiedenen Ob¬ 
jekten im Spiel aufgestellt - Sie selbst, die Wächter und die Zäu¬ 
ne. Verschiedene Codes dienen ferner dazu, einen unbewegli¬ 
chen Wächter und Sie als unbewegliche Figur darzustellen! 
Geräusche werden das ganze Spiel hindurch erzeugt, um Span¬ 
nung hervorzurufen; die Töne werden im Lauf der Zeitschriller. 
Sobald etwas an einen Zaun gerät, hört man ein Schnalzen, am 
Ende der Partie wird eine passende Melodie gespielt, um anzu¬ 
zeigen, ob Sie gewonnen oder verloren haben. 

Jedes Spiel dauert nur ein, zwei Minuten, ideal für die Unterhal¬ 
tung der Familie. 

Sobald Sie das Programm eingegeben haben, sichern Sie es mit: 
SAVE "ROBOTCHASE" UNE 1 


1 REM **** Robot Chase •**•** 

2 REM © Phipps Associates '82 
5 RESTORE : RANDOMIZE : CLEAR 


Sondergrafik definieren 


10 BO SUB 8200 
20 CLS 

30 PRINT TAB 12; "agHBEEES" ' ' 
u bist in einer -feindlichen 
erteidigungsstel1ung, und un = 

1uecklicherweise sind die Wa= 
hen auf Dich aufmerksam gewor= 


"D 

V 

g 

c 

d 


en.Deine einzige Chance, ihnen z 
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u entkommen, ist, sie bei der V 
er-folgung in die Elektro-Felderz 
u 1ocken." 

40 PRINT ' "Elektro-felder— 11 ; CH 

R* 144 ' ' "Waechtei-" ; CHR* 1 

46' '"Du-";CHR* 145 

50 PRINT ''"Mit den'Kursortast 
en gehst Du i nP-f ei 1 richtung , mit 
den Tasten 4,R,U und 9 diagonal 

II 

55 INPUT "Schwierigkeitsgrad? 
(1-3)? "; d: IF d<1 0R d>3 TUEN G 
0 TO 55 

60 PRINT , ,TAB 11; " HH1SBMIS3B 

II 


70 GO SUB 8300: PAUSE 25 
90 LET y*=CHR$ 145: LET g*=CHR 
* 146: LET T*=CHR* 144 
100 CLS : PRINT AT 10,8;“Spielf 
el d-Au-f bau. . . " 

110 LET ng=6+d 

115 DIM s(21,31): DIM b(ng,2) 

120 FOR :< = 1 TO ng 

130 LET b (x , 1) =FN r (30) 

140 LET b(x,2)=FN r(20) 

150 IF FN s(x) THEN GO TO 130 
160 LET i=146: IF x=l THEN LET 
i = 145 

170 LET s(b(x,2),b(x,1))=i 
180 NEXT x 

200 FOR n=1 TO 55-FN r<d*10> 

210 LET x =FN r(30) 

220 LET y=FN r(20) 

230 IF s(y,x) THEN GO TO 210 
240 LET s(y,x)=144 
245 NEXT n 

250 BORDER 5: PAPER 6: GO SUB 9 
000 

260 FOR y=l TO 20: FOR x=l TO 3 
1: IF s(y,x) THEN PRINT AT y,x;C 
HR* s(y,x) 

270 NEXT x: NEXT y 

280 LET m=0 

300 LET m*=INKEY* 

310 IF m*="" THEN GO TO 400 
320 LET x=(m*="5")*-l+(m*="8")+ 
(m*="4")*-l+(m*="r")*-!+(m*="u") 
+(m*="9"> 


Einleitung spielen 


Wächter und Sie setz. 


Zäune setzen 


Bildschirm zeichnen 


Bewegung holen 
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330 LET y=(m$=' , 6'') + (m$= l ’7 ,, )*-l + 
1+(m$="r")+(m$="9")*~i 

+ (tn$="u") 

360 LET g=l: GO SUB 8100 
365 IF x < 1 OR y< 1 OR x >30 OR y> 
20 TUEN GO TO 9200 
370 IF FN s(l)=g THEN GO TO 910 

0 

380 IF FN s(1)=144 THEN GO TO 9 
200 

390 LET s(y,x)=145: PRINT AT y, 
x ; yf-: BEEF' . 1 , — 10 
400 LET n=0: LET m=m+l 
410 FOR g=2 TO ng 
430 IF FN s(g> <>146 THEN GO TO 
600 

440 LET n=n+l 

450 LET x =SGN (b (1 ,1)-b(g,1)) 
460 LET y=SGN (b(1,2)-b(g,2)) 
465 PRINT AT b(g,2) , b (q , 1 >;" " 
470 GO BUB 8100 

490 IF FN s(q)=145 THEN 60 TO 9 
100 

500 IF FN s(q)=144 THEN FOR a=l 
TO 10: FOR b=0 TO 1: BEEP .01,b 
*5-5: NEXT a: NEXT b: LET s(y,x) 
=147: LET t=0: GO TO 530 
510 LET s(y,x)=146 
520 LET t=2 

530 PRINT AT y,x; INK t;CHR$ s( 
y, x) 

540 BEEP .1,m 
600 NEXT g 

610 IF n=0 THEN GO TO 9300 
620 GO TO 300 
999 STOP 

8100 LET s(b(g,2),b(g,1))=0: PRI 
NT AT b(g,2) ,b (q, 1);" " 

8105 LET b(g,1> =b(g,1)+x: LET b( 
g , 2) =b (g , 2) +y 

8110 LET x=b(g,l): LET y=b(g,2) 
8120 RETURN 

8200 DATA "a",255,129,129,129,12 
9,129,129,255 

8205 DATA "b",8,28,8,62,8,B,20,2 
0 

8210 DATA "c",0,0,24,60,126,219, 
255,36 


sich selbst bewegen 

prüfen, ob noch 
auf dem Schirm 

Wächter 

angestoßen? 

... oder einen Zaun? 


sich selbst bewegen 


jetzt Wächter bewegen 
noch am Leben? 

Rest Wächter zählen 
Ihre Richtung 


ein Leerraum 
Wächter bewegen 
hat er Sie erwischt? 

ist er an den Zaun 
geraten? 


neue Position 


noch Wächter da? 
dann weiter 

ein Leer raum 


Grafik 
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8215 DATA "d",66,34,68,66,24,60, 
126,255 

8220 DATA "e",0,32,33,39,36,252, 
252 0 

8230 Vor c=l TO 5 

8240 READ c$: FOR x=0 TO 7: READ 
r: F'OKE USR c$+:<,r: NEXT x 
8250 NEXT c 

8260 DEF FN s(x>=s(b(x,2),b(x,1) 

) 

8270 DEF FN s*<x)=CHR$ FN s(x> 

8280 DEF FN r(x)=INT <RND*x)+l 

8290 RETURN 

8300 REM nice tune 

8310 FOR x=l TO 3: BEEP .3,7: BE 

EP .15,4: NEXT x: BEEP .6,0 

8320 RETURN 

8400 REM funeral march 

8410 LET s=.6 

8420 BEEP s,0: BEEP s*2/3,0: BEE 
P s/3,0: BEEP s,0: BEEP s*2/3,3: 

BEEP s/3,2: BEEP s*2/3,2: BEEP 
s/3,0: BEEP s*2/3,0: BEEP s/3,-1 
: BEEP s,0 
8430 RETURN 
9000 CLS 

9010 PLOT 0,175: DRAW 255,0: DRA 
W 0,-175: DRAW -255,0: DRAW 0,17 
5 

9020 RETURN 

9100 PRINT AT b(1,2) ,b (1,1); INK 
2;CHR$ 148 

9105 PRINT AT 21,0; "Du bist ge-fa 
nqen!" 

9110 FOR x =0 TO 20: FOR y=0 TO 1 
: BEEP .01,13+y*5: NEXT y: NEXT 

X 

9115 IF INKEYÜK >"" THEN GO TO 91 
15 

9120 PAUSE 50: GO SUB 8400 
9130 GO TO 9400 

9200 PRINT AT b(1,2),b(1,1); FLA 
SH 1; INK 2; PAPER 6;CHR* 148 
9205'PRINT AT 21,0; FLASH 1;"** 
ZAP **"; FLASH 0;"Du bist im Fe 
ld ! " 

9210 FOR x = 39 TO 0 STEP -1: BEEP 
.005,x: NEXT x 


Umzäunung zeichnen 


Endspiel-Meldungen 
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9220 Gü TO 9400 

9300 PRINT AT 21,0; FLASH 1;"DU 
ENTKOMMST"; FLASH Ö; " SUPER 1 -AGEN 
T! " 

9310 GO SUB 8300 

9400 IF INKEY$<>"" THEN GO TO 94 
00 

9405 INPUT "Noch ein Spiel? ";z* 
9410 IF LEN z-t- THEN IF z$(l)="j" 
THEN GO TO 100 

9999 BORDER 7; INK Os PAPER 7: S 
TOP 
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Abschnitt 

Maschinencode 

Einleitung 

Dieser letzte Teil des Buches (ein ziemlich großer Teil) befaßt 
sich dem gefürchteten ‘Maschinencode’. Es gibt viele Gründe da¬ 
für, weshalb ich einen solchen Abschnitt aufgenommen habe. 
Sinclair hat nun drei verschiedene Computer auf den Markt ge¬ 
bracht - den ZX80, den ZX81 und als neuesten den Spectrum. 
Das ist alles im Verlaufvon gut zwei Jahren geschehen und hat auf 
den Markt eine starke Auswirkung gehabt. 

Ich habe den Fortschritt von Homecomputer-Besitzern wäh¬ 
rend dieses Zeitraums verfolgt und war überaus erstaunt ange¬ 
sichts der Nachfrage nach immer mehr Wissen. Viele Besitzer 
kaufen die Geräte zwar nur dazu, um eine Vielzahl von Video¬ 
spielen betreiben zu können, aber viele andere wollen aus ihrer 
Neuerwerbung das meiste herausholen. Die BASIC-Sprachefin- 
det ‘auf Anhieb’ Anklang, obwohl sie keineswegs übermäßig ein¬ 
fach ist. Trotzdem hat sie ihre Grenzen, was in der Hauptsache 
an zwei Gründen liegt. Erstens istsie langsam. Das gilt fürfast alle 
Mikrocomputer, obwohl der Spectrum tatsächlich noch langsa¬ 
mer ist als die meisten. Die Folge davon ist, daß viele gute Pro¬ 
gramme behindert werden durch eine langsame Reaktion, was 
den Spieler enttäuscht, der sie dann vermutlich als ‘untauglich’ 
(oder mit einem ähnlichen Ausdruck) abtut. 

Zweitens kann BASIC nicht alle Möglichkeiten des Mikrocompu¬ 
ters ausschöpfen, weil BASIC entgegen manch anderer Meinung 
eben doch eine gewisse ‘Normierung’ aufweist. 

Das heißt: Wenn Sie bei der Beschäftigung mit dem Computer 
über BASIC hinausgelangen wollen, müssen Sie sich einer ande¬ 
ren Sprachezuwenden. Mit der Zeit werden neue Sprachen zur 
Verfügung stehen - FORTH, Pascal, LISP, vielleicht sogar (Gott 
behüte) Cobol. Inzwischen ist der Maschinencode verfügbar. Er 
benützt nur einige Instrumente, an die man leicht herankommt. 
Damit wollen wir uns hier abgeben. Sie finden in diesem Ab¬ 
schnitt an Werkzeug alles, was Sie brauchen - einen vollstän- 
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digen Assemblierer (ohne Spaß!), mit dem Sie übliche Maschi¬ 
nenbefehle in Assemblersprache (also in mnemotechnischer 
Form) eingeben können; einen Disassemblierer und ein Maschi- 
nencode-Uberwachungsprogramm. Damit können Sie Ihre Pro¬ 
gramme testen, sobald sie geschrieben und in Assemblersprache 
übersetzt sind. (Falls Ihnen irgendeiner dieser Ausdrücke neu 
sein sollte - sie werden an den entsprechenden Stellen erklärt.) 
Zusätzlich wird Ihnen gezeigt, wie Sie einige der Einrichtungen in 
Ihrem Spectrum-ROM nutzen können, in dem ‘unveränderba¬ 
ren’ Programm, das sich im Inneren befindet. Sie können so BA- 
SlC-Programme eingeben und fahren. 

Wem diese Begriffe neu sind, der wird sich zuerst in eine fremde 
Welt versetzt finden, aber ich lege großen Wert darauf, daß die¬ 
ser Band nicht bloß für den Augenblick Spaß macht, sondern Sie 
ihn auch als Nachschlagewerk benützen können. So wie Sie aus 
vielen verschiedenen Quellen lernen, hoffe ich, daß Sie auch von 
einer anderen Warte aus zu diesen Seiten zurückkehren. 
Wenn Sie mit dem Spectrum wirklich erst anfangen, dann klap¬ 
pen Sie das Buch jetzt nicht einfach zu. Eine große Anzahl der 
kleinen Programme, die nun folgen, wird für Sie nämlich sogar 
dann lehrreich und nützlich sein, wenn Sie nicht verstehen, wie 
sie funktionieren. Wenn Sie den Assemblierer fahren (siehe 
ZXASM weiter unten) und die Maschinencode-Routinen einge¬ 
ben, die unten aufgeführt sind, können Sie sie auf Band sicherstel¬ 
len, um sie in Ihre eigenen Programme mit aufzunehmen. Das 
heißt zwar, daß Sie einige Programme zunächst blind eintippen, 
aber vielleicht gewinnt Ihre Neugier doch die Oberhand ... 
Fangen wir mit einem Blick auf den Spectrum-ROM an. 

Spectrum-ROM 

Der ROM (read only memory = Nur-Lese-oder Festspeicher) 
besetzt ein Viertel des Gesamtspeichers, der dem Spectrum di¬ 
rekt zugänglich ist - mit anderen Worten: Dem Systempro¬ 
gramm des Spectrum sind 16K-Speicherplatz gewidmet. Das ist 
soviel, wie Sie beim 16K-Grundmodell überhaupt zur Verfügung 
haben! Wozu wird das alles verwendet? 

Nun, erstens wirkt der Festspeicher als Interpreter. Er über¬ 
setzt Ihre BASIC-Programme in eine Form, die der Spectrum 
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(genauer, der Z80-Mikroprozessor) wirklich verstehen kann, 
um sie dann auszuführen. Auf diese Art können Sie Pro¬ 
gramme rasch schreiben und Programme anderer ohne Mühe 
verstehen, weil BASIC als eine Form von ‘Englisch’ leicht erkenn¬ 
bar ist. 

Zweitens steuert er alle Übertragungen zwischen Z80-Prozes- 
sor und Tastatur, Fernsehschirm, Kassette und anderem Zusatz¬ 
gerät. Diese Tätigkeiten nehmen eine beträchtlichen Teil des 
ROM in Anspruch. 

Im allgemeinen neigen Programmierer in Maschinencode dazu, 
sich mehr für die zweite Art zu interessieren. Wenn Sie BASIC 
übersetzen wollten, könnten Sie ja ebensogut das Programm in 
BASIC schreiben und den ROM die Arbeit machen lassen! Of¬ 
fenkundigmüssen manche MC-Programme (Abkürzungfür Ma¬ 
schinencode) die Art und Weise nutzen, wie der ROM BASIC- 
Befehle behandelt, da ein Programm teilweise in BASIC und teil¬ 
weise in Maschinencode geschrieben sein kann. 

Was sind also die Hauptprobleme, vor denen man steht, wenn 
man ein Programm in Maschinencode schreiben möchte? Es sind 
folgende: 

a) Die Befehle in Maschinencode verstehen 

b) Wissen, wie man das Programm eingibt, speichert und fährt 

c) Wie man die Einrichtungen des Spectrum (etwa dieTastatur, 
das Display etc.) benützt, ohne immer wieder zu BASIC zu¬ 
rückzukehren 

d) Wie man Information von BASIC in Maschinencode und um¬ 
gekehrt überträgt 

e) Wie man das Programm testet, sobald es geschrieben und in 
Assemblersprache übertragen ist. 

Die restlichen Abschnitte des Buches befassen sich mit den mei¬ 
sten dieser Probleme, aber das erste bedarf zunächst einer klei¬ 
nen Erläuterung. 


Die Befehle verstehen 

Das ist, schlicht gesagt, eine Aufgabe, die dieses Buch überfor¬ 
dert. Man könnte einen Band von doppeltem Umfang darüber 
schreiben und würde vermutlich immer noch einige der größe- 
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ren Feinheiten auslassen, weil Programmieren in Assembler¬ 
sprache ebensosehr eine Technik ist wie das Erlernen der 
Codes. Es gi bt auf dem Markt einige Bücher zudem Thema, aber 
damit geht es recht mühsam, weil man methodisch Vorgehen 
muß, wenn man genau verstehen will, was sich abspielt. Mit ein 
bißchen Geduld findetsich in solchen Bänden aber alles, was man 
wissen muß. Sobald Sie sich auskennen, werden Sie erkennen, 
um wieviel leichter ein Assemblierer Ihnen das Leben macht. 

Haschinencode von BASIC aus fahren 

Die USR-Funktion ist der Ausgangspunkt für Ihre Routinen. Da¬ 
durch wird der Spectrum gezwungen, die Maschinencode-Rou¬ 
tine zu fahren, deren Adresse folgt. Beispiel: Wenn Ihre Routine 
(oder irgendeine der folgenden) auf Adresse 32600 gesetzt 
werden würde, hätte Ihr Programm eine Zeile zu enthalten wie: 
1100 LETx = USR 32600 

Es gibt zwei weitere Überlegungen. Wenn Sie über Ihre Routine 
Information vermitteln wollen, läßt sie sich mit POKE in einen 
freien Bereich des Speichers setzen, damit die Routine sie wie¬ 
der holen kann. Verfügbare Speicherbereiche sind: 

Systemvariable-Byte 23681 

Systemvariable-Bytes 23728 und 23729 

Drucker-Pufferspeicher 256 Bytes ab 23296 

Ihre Routine kann Informationen in diese Adressen eingeben 
(und mit der PEEK-Funktion herausholen) oderein Einzelresul¬ 
tat in das Registerpaar BC setzen, bevor sie zu BASIC zurück¬ 
kehrt. In diesem Fall würde die Variable “x” im obigen Beispiel 
zum Schluß der Routine auf diesen Wert gesetzt werden. 

Die folgenden Abschnitte liefern viele Beispiele für funktionie¬ 
rende Routinen, die Sie eingeben und fahren können. Der später 
erscheinende Assemblierer ist der Schlüssel für die meisten die¬ 
ser Programme, so daß ich Ihnen raten würde, zunächst 
ZXASM, den Spectrum-Assemblierer, zu studieren und einzu¬ 
geben. 
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Spectrum-ROM nutzen 

Da sitzen Sie also und codieren verzweifelt Ihr neues Programm 
'Angriffaus dem All’. Plötzlich wird Ihnen klar, daß das Programm 
ein Tastaturzeichen annehmen muß, damit der Spieler sein 
Raumschiff bewegen kann. Wie wird das geleistet? Wie zeigen 
Sie Posten auf dem Schirm an? Oder rollen alles um ein Pixel 
nach links? (Versuchen Sie das einmal in BASIC!) 

In allen folgenden Demonstrationsprogrammen habe ich Ihnen 
ein Listing des Programms vorgelegt, das direkt in den Assem¬ 
blierer eingegeben werden kann. Vielleicht wäre das jetzt der 
richtige Augenblick, um sich einmal anzusehen, was er für Sie lei¬ 
sten kann, und ihn vielleicht ganz einzutippen! 


Die Tastatur 

Der Spectrum hat eine 'Uhr’, wodurch fünfzigmal in der Sekun¬ 
de die S/stemvariable FRAMES inkrementiert (erhöht) wird. 
Das Wort ‘Uhr’ steht in Anführungszeichen, weil man sie ganz 
leicht aus dem Takt bringen kann. 

Ein Teil der Spectrum-Schaltung erzwingt jede Fünfzigstelsekun¬ 
de einen Aufruf an Adresse 56 im ROM. Dieser Bereich des 
ROM (mit dem Disassemblierer können Sie ihn sich ansehen) 
aktualisiert die S/stemvariable FF3AMES und tastet außerdem 
das Ke/board ab. 

Das ist eine gute Nachricht für Leute, die an den ZX81 gewöhnt 
waren, wo das Abtasten auf mühsame Weise - nämlich durch 
Codieren - erfolgen mußte. Beim Spectrum brauchen Sie in ei¬ 
ner Maschinencode-Routine lediglich eine Flagge zu testen, um 
festzustellen, ob eine Taste gedrückt worden ist. Falls eine Flagge 
gesetzt ist, können Sie den Code der Taste der S/stemvariablen 
LASTK entnehmen (Adresse 23560). Die Flagge befindet sich in 
Bit 5 der Adresse 23611 (FLAGS). 

Kapitel 26 des Sinclair-FHandbuchs erwähnt, daß ein Maschinen¬ 
code-Programm nicht das Register IY verwenden sollte. Der 
Grund dafür: Es wird im ganzen ROM dazu benützt, Information 
aus den S/stemvariablen zu erhalten. Außerdem enthält es die 
Adresse der S/stemvariablen ERRNR. 
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Falls Sie also sehen wollen, ob eine Taste gedrückt worden ist, 
kann Ihre Routine die folgenden Zeilen enthalten: 


LASTK: EQU 23560 
XORA 

;A löschen 

BIT 

5, (IY + 1) 

; Bit 5 Variable FLAGS prüfen 

JR 

Z, NOKEY 

; Sprung, wenn keine Taste 

LD 

A, (LASTK) 

drückt 

; Code von Taste besorgen 

RES 

5, (IY + 1) 

; Flagge neu setzen 

NOKEY: 

; A enthält Null oder Tasten¬ 
code 


(Beachten: Wenn Sie den Assembler verwenden, können Sie 
die EQU-Anweisung dazu verwenden, sich auf alle ROM-Adres- 
sen zu beziehen. Mit diesem Befehl können Sie im ganzen Ma¬ 
schinencode-Programm Namen anstelle von Adressen verwen¬ 
den und diese für sich vom Assemblierer einsetzen lassen. Ge¬ 
naueres bei ZXASM.) 

Der von LASTK gelieferte Code berücksichtigt keine Befehls- 
Schlüsselwörter oder Funktionen in erweitertem Modus, wie 
das folgende Testprogramm beweist: 

10 REM Test Keyboardabtastung 

20 PRINT AT 10,10; CHR$ PEEK 23560; 

(zwei Leerräume) 

30 GO TO 20 

Drücken Sie beliebig Tasten, auch mit Shift. Aus diesem Pro¬ 
gramm ersehen Sie, daß LASTK sich nur dann verändert, wenn 
eine neue Taste gedrückt wird. Aus diesem Grund sollten Sie 
Bit 5 von FLAGS prüfen, bevor Sie den Inhalt laden. 

Wenn es Sie überhaupt interessiert, ob eine Taste gedrückt 
wird oder nicht, ohne Rücksicht darauf, welche, können Sie den 
Wert der Adresse 23556 (KSTATE) testen. Sie enthält den 
Wert 255, wenn keine Taste gedrückt wird, und den ‘Caps lock’- 
Wert der Taste, wenn sie gedrückt wird: 

10 PRINT AT 1, 4; "Irgendeine Taste drücken" 

20 PRINT AT 10,10; CHR$ PEEK 23556:"" 

(zwei Leerräume) 

30 GO TO 20 
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Beachten Sie, daß das Schlüsselwort “COPY" den Codewert 255 
hat. 

Ihr Programm wird vielleichtauch auf BREAK prüfen wollen, weil 
diese Einrichtung innerhalb von Maschinencode nicht funktio¬ 
niert, wenn sie vom Programm nicht ausdrücklich getestet wird. 
Der Festspeicher enthält eine solche Routine in Adresse 1F54 
(Hex). Wenn Sie diese Routine beim Rücksprungaufrufen, wird 
die Übertragungsflagge gesetzt, wenn BREAK nicht gedrückt, 
und gelöscht, wenn BREAK gedrückt wird. Beispiel: 

CALL 1F54H ; prüfen, ob BREAK gedrückt 

RET NC ; Rücksprung, wenn BREAK 

; fortsetzen ... 

Die obige Routine verlangt, daß gleichzeitig CAPS SHIFT und 
SPACE gedrückt werden. Manchmal kommt es Ihnen vielleicht 
nur darauf an, SPACE allein zu testen. Das geht mit: 

LD A, 7FH ; Keyboard reihen-Ad resse 

IN A, (0FEH) ; Reihenzustand feststellen 

RRA ; SPACE in Übertrag setzen 

JP NC, SPCKEY ; Sprung, wenn SPACE gedrückt 

Das Display 

Das "TV-Display ist mit Maschinencode schwerer zu bändigen, 
zum größten Teil wegen der Art, wie die Displaydatei im Spei¬ 
cherangelegt ist. In die Displaydatei ist mit PEEK und POKE nicht 
leicht hineinzukommen, aber wenn man ein bißchen genauer 
weiß, wie sie funktioniert, läßt sich das bewältigen. 

Der Speicherbereich beginnt bei 16384 (4000 Hex) und be¬ 
setzt 24x32x8 Bytes (= 6144 Bytes). Jede der 192 Pixelreihen 
am Bildschirm herunter erfordert 32 Bytes, so daß zumindest 
der Theorie nach die zweite Pixelreihe eines Zeichens 32 Pixel 
nach dem ersten erscheinen sollte. Falsch. (‘Pixel’ - siehe Regi¬ 
ster im Spectrum-Handbuch.) 

Ein Zeichen besetzt ein Gitter von 8 mal 8 Pixel oder acht Pixel- 
reihen, jede der Pixelreihen wird 256 Bytes nach der vorherigen 
aufbewahrt. Wenn Sie also eine vertikale Linie von acht Punkten 
(Pixel) in der oberen linken Bildschirmecke zeichnen wollen, 
könnten Sie schreiben: 
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10 FOR x = 0 TO 7 
20 POKE 16384 + x* 256,1 

30 NEXT x 

Der Bildschirm ist nun aufgeteilt in drei Abschnitte zu je achtZei- 
len (drei Abschnitte von 64 Pixelreihen), und jeder dieser Ab¬ 
schnitte beginnt bei den Adressen 16384,18432,20480 - So be¬ 
ginnt Zeile 8 auf dem Bildschirm (beginnend bei Zeile 0) bei 
Adresse 18432, Zeile 16 bei 20480. 

Innerhalb dieser Blöcke beginnt jeder Zeilenanfang 32 Bytes wei¬ 
ter unten. Hier einige Beispiele: 

Zeile 2 - 16384 + 2*32 (Abschnitt 0 Anf. plus 2 Zeilen) 

Zeile 17 - 20480 + 1*32 (Abschnitt 2 Anf. plus 1 Zeile) 

Zeile 15 - 18432 + 7*32 (Abschnitt 1 Anf. plus 7 Zeilen) 

Das läßt sich mit Maschinencode leicht berechnen, weil die 

Adresse jedes Bildschirmpunktes als eine 16 Bit-Darstellung be¬ 
rechnet werden kann durch: 

01 ©ssppprrrcccc 

wobei ss die Abschnittszahl ist (0,1 oder 2) 

ppp die Pixelreihe innerhalb des Zeichens (0-7) 
rrr die Zeilennummer im Abschnitt (0-7) 
cccc die Spaltennummer (0-31) 

Alle diese Werte sind natürlich binär. Das ‘010’ am Anfang liefert 
den Wert 16384 als Beginn der Bildschirmkarte. 

Die folgende Routine berechnet die Adresse jeder Pixelreihe al¬ 
ler Reihen und Spalten auf dem Bildschirm. Wenn Sie die Routi¬ 
ne in Ihren eigenen Maschinencode-Programmen verwenden, 
setzen Sie Register A auf die Pixelreihennummer innerhalb des 
Zeichenblocks (0-7), Register B auf die Zeile am Schirm (0-23) 
und Register C auf die Spaltennummer (0-31). Beim Rück¬ 
sprung enthalten die Register HL die Speicheradresse der Bild¬ 
schirmkarte entsprechend dieser Position. 

PCALC: 

PUSH AF 
LD A, B 
AND 18 H 
OR 40 H 
LD H, A 
POP AF 
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Pixelreihe sichern 
B enthält Zeile auf Schirm 
entscheiden, in welchem Abschnitt 
Bildschirmkartenadresse einfügen 
in Register H sichern 
Pixelreihennummer wiederherstell. 



ADD 

A, H 

LD 

H, A 

LD 

A, B 

AND 

7 

RRCA 


RRCA 


RRCA 


ADD 

A, C 

LD 

L, A 

RET 



; Schirmversetzung hinzufügen 
; in H ersetzen 

; Zeile in Abschnitt bestimmen 
; Abschnittnummer abdecken 
; Zeile in oberste drei Bits setzen 


; Spaltennummer hinzufügen 
; Ergebnis in Registerpaar HL 
; alles fertig 

In Anhang A finden Sie eine vollständige ‘Bildschirm-Werkzeug¬ 
tasche’, mit dem Sie (mit einer Abart der obigen Subroutine) auf 
dem Bildschirm beliebig ein Zeichen anzeigen können; außer¬ 
dem enthält es Routinen, um den Schirm nach links, rechts, oben 
und unten um jede gewünschte Pixelzahl abzurollen (bis zur 
Höchstzahl auf dem Schirm, versteht sich). Diese Scrolling-Sub¬ 
routinen liefern gleichmäßige Bewegung, weil sie immer nur eine 
Pixelreihe bewegen, statt jeweils einen Block von acht Reihen. 
Dieses Werkzeug ist zwar außerordentlich leistungsfähig und 
erleichtert gewiß das Schreiben vieler Programme, aber es gibt 
doch Umstände, unter denen Sie auf dem Schirm anzeigen und 
die Ausgabe mit dem ROM steuern wollen. Beispielsweise er¬ 
weitert das Werkzeug Funktionen und Befehle nicht zu ihrer 
vollständigen Form, obwohl es die Regeln für Negativschrift und 
Benutzergrafik beachtet. 

In diesem Fall können Sie jedes Zeichen anzeigen, wenn Sie eine 
der ‘RST’-Einsprungadressen im ROM verwenden. 

’RST’-Einsprungadressen sind acht Spezialadressen, die mit ei¬ 
ner Einzelbyte-Anweisung statt dem üblichen 3-Byte-CALL-Be- 
fehl aufgerufen werden können. Der Befehl ‘RST 10 H’ ruft die 
Routine auf, die bei Adresse 10 H (16 dezimal) beginnt. Neben¬ 
bei: Die anderen verfügbaren RST-Einsprungadressen sind: 
RST 0 h Führt einen NEW-Befehl aus 
RST 8 h Löst die Fehlerroutine aus. Das Byte danach nennt 
den Fehlercode, 0-1 BH 
RST 10h Ausgabezeichen an laufenden Strom 
RST 18 h Vom Interpreter verwendet 
RST 20 h Vom Interpreter verwendet 
RST 28 h Fließpunktrechner 


108 


RST 30 h Speicherverwaltungs-Routine 
RST 38 h Ke/boardabtastung und FRAMES-Uhrzähler 
Mit der Routine ‘RST 10 h’ sollten Sie Register A mit dem Code 
des anzuzeigenden Zeichens laden, dann RST 10h einschließen, 
worauf das Zeichen an der laufenden Bildschirmposition ange¬ 
zeigt wird. 


Sie können die Position dadurch verändern, daß Sie eine Routine 
bei Adresse 0DD9H (3545 dezimal) benützen. Ich habe diese 
Routine in denfolgenden Programmen ‘PRNTAT’ genannt. Regi¬ 
ster B sollte auf die Bildschirmreihe gesetzt werden, wo 24 die 
oberste Zeile und 1 die unterste darstellt, während Register C 
auf die Spaltennummer gesetzt werden muß, wo 32 die linke 
Kante und 2 die rechte Kante bezeichnet. 

Bei Anwendung dieser Methode gibt es aber einen kleinen Ha¬ 
ken. Der Spectrum hat die Fähigkeit, Daten auf einen von 16 ver¬ 
schiedenen Strömen auszugeben (siehe ‘Winke und Tips’), und 
bevor Sie 'RST 10 h' verwenden, müssen Sie das geeignete Aus¬ 
gabegerätwählen. Sobald das geschehen ist, brauchen Sie sich für 
den Rest Ihres Programms nicht mehr damit zu befassen, außer 
natürlich, Sie ändern auf einen anderen Wert ab. Der Bildschirm 
hat Gerät/Strom-Nummer 2, und eine Routine bei Adresse 
1601 h wählt den laufenden Kanal. Hier ein vollständiges Bei¬ 
spiel: 


LD A, 2 
CALL 1601H 
LD B, 24 

LD C, 33 

CALL 0DD9H 
LD A, 41H 
RST 10H 
RET 


; Bildschirmausgabe wählen 

; Zeile 0 (siehe Hinweise oben) 
; Spalte 0 

; Anzeigeposition setzen 
; Code für ‘A’ 

; anzeigen 

; zu BASIC zurückkehren 


Nach Abschluß von ‘RST 10 h' ist die Systemvariable SPOSN 
automatisch auf die nächste Position aktualisiert. Um also das 
Alphabet auf Zeile 10 des Bildschirms anzuzeigen, würde folgen¬ 
de Routine genügen: 

LD A, 2 ; Bildschirmausgabe wählen 

CALL 1601 h 

LD B, 10 ; Zeile 14 (24-14 = 10) 

LD C, 30 ; Spalte 3 (33-3 = 30) 
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CALL PRNTAT 

; Anzeigeposition setzen 



(0DD9H) 

LD 

A, 41H 

; Code für ‘A’ 

LOOP: 



PUSH AF 

; Zeichen sichern 

RST 

10H 

; Zeichen anzeigen 

POP 

AF 

; wiederherstellen 

INC 

A 

; nächster Buchstabe im Alphabet 

CP 

5 BH 

; ist ‘Z’ schon vorbei? 

J* 

C, LOOP 

; nein, also neues Zeichen an¬ 
zeigen 

RET 


; zu BASIC zurückkehren 

Zwei nützliche Adressen: 



CALL 0D6BH - löscht den Bildschirm (dezimal 3435) 
CALL 0DFEH - rollt den Schirm nach oben (dezimal 3582) 
Die zweite, also ‘SCROLL’, läßt die laufende Anzeigeposition 
unberührt, so daß Sie ganz neuartige Wirkungen erzielen kön¬ 
nen, wenn Sie auf einer Mittelzeile des Displays anzeigen, es um 
eine Zeile hinaufrollen und wieder anzeigen. Wenn Sie an einen 
ZX81 gewöhnt waren, fühlen Sie sich dabei dann vielleicht wie¬ 
der wohl! 

Sie können mit PLOT auf dem Bildschirm zeichnen, wenn Sie ei¬ 
ne Routine bei Ad resse 22E5H (dezimal 8933) verwenden. Die¬ 
se Routine geht davon aus, daß Register B die Y-Koordinate (0- 
175) und Register C die X-Koordinate (0-255) enthält. Wenn 
Sie gezeichnete Punkte löschen wollen, können Sie eine von 
zwei Methoden verwenden. 

Erstens können Sie einen Befehl 'SET 0, (IY + 87)’ einfügen. Das 
entspricht einem 'OVER T in BASIC, da alle nachfolgenden 
durch PLOT gezeichneten Punkte den Punkt an dieser Position 
auf dem Bildschirm umkehren. 

Zweitens können Sie eine Anweisung ‘SET2, (IY + 87)’ einfügen, 
die dafür sorgt, daß alle nachfolgenden Punkte nicht Ink-, son¬ 
dern Paper-Punkte werden. Das entspricht 'INVERSE V in 
BASIC. 

Beide Methoden können jederzeit umgekehrt werden, wenn 
man das entsprechende Bit neu setzt, also RES 0, (IY - 87) oder 
RES 2, (IY + 87). Ein vollständiges Beispiel für eine Routine, die 
PLOT verwendet, findet sich im Assemblierer-Abschnitt. 
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Noch eine nützliche Sache im Verhältnis zum Display - eine Sub¬ 
routine, die eine 16-Bit-Zahl als vier Dezimalziffern anzeigt. Die 
Routine wird verwendet vom ROM, um Zeilennummern anzu¬ 
zeigen, wenn Sie die Befehle LIST und LUST verwenden, sie kann 
aber in Assembliererprogrammen gut genutzt werden. Die 
Routine beginnt bei Adresse 1A28H (6696 dezimal) und setzt 
voraus, daß die Register HL die Adresse einer 16-Bit-Zahl ent¬ 
halten. Leider muß die 16-Bit-Zahl mit dem bedeutsamsten Bit 
zuerst gehalten werden, aber das ist nur ein kleiner Nachteil. Re¬ 
gister E sollte einen von drei Werten enthalten - 32, wobei die 
Zahl mit vorangehenden Leerräumen angezeigt wird, 38, dann 
kommen vorher Nullen, oder 255, wo nicht-bedeutsame Nullen 
gar nicht angezeigt werden. Das folgende Programm zeigt die 
Zahlen 0 bis 9999 in der Bildschirmmitte an. Sie drehen sich im 
Kreis herum, bis Sie BREAK drücken: 


SELDEV: EQU 1601H 
PRNTAT: EQU 0DD9H 
PRTNUM: EQU 1A28H 
BRKTST: EQU1F54H 
ENTER$HERE: 

LD A, 2 
CALL SELDEV 
START$COUNT: 

LD BC, 0 
NEXT$NUM: 

PUSH BC 
LD B.24-10 

LD C, 33 - 15 

CALL PRNTAT 
POP BC 

LD HL, COUNT + 1 

LD (HL), C 

DEC HL 
LD (HL), B 


; Bildschirm wählen 


; Zähler initialisieren 

; Zählung sichern 
; anzeigen auf Zeile 10 
(24 - 10 = 14) 

; Spalte 15 
(33 - 15 = 18) 

; siehe oben 
; Zählung wiederher¬ 
stellen 

; Speicherbereichs¬ 
adresse 

; am wenigsten bedeut¬ 
sames Byte 

; bedeutsamstes Byte 
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PUSH 

BC 

; Zählung sichern 

CALL 

PRTNUM 

; Routine bei 1A28H 



im ROM 

CALL 

BRKTST 

; Testroutine unter¬ 



brechen - 1F54H 

POP 

BC 

; Zählung wiederher¬ 



stellen 

RET 

NC 

; falls BREAK, zu BASIC 



zurückkehren 

INC 

BC 

; nächster Wert 

LD 

HL, 9999 

; Höchstwert 

XOR 

A 

; Übertragsflagge löschen 

SBC 

HL, BC 

; feststellen, ob Maxi¬ 



mum erreicht 

JR 

NC, NEXT$NUM 

; Sprung, um nächste 



Zahl anzuzeigen 

JR 

START$COUNT 

; Zähler neu setzen 

JT: DEFW 0 

; Datenbereich für Zähler 


Dieses Programm kann so, wie es dasteht, in den Assembler ein¬ 
gegeben werden. Starten Sie sofort mit der Eingabe: 

RANDOMIZE USR (PEEK 23730 + 256* PEEK 23731 + 1) 
Für sich allein ist das Programm nicht besonders nützlich, aber als 
Hinweis darauf, wie andere Programme die bisher erwähnten 
Routinen beinhalten können, ist dieses Zählerprogramm über¬ 
aus lehrreich. 


Farbe 


Nachdem Siegesehen haben, wie man den Bildschirm für die An¬ 
zeige von Normaltext und -grafik verwendet, läßt sich Farbe 
leicht hinzufügen. 

Wenn Sie 'RST 10 h’ benützen, können Ihre Programme die Far¬ 
be dadurch verändern, daß sie Ink'- und ‘Papier’-Steuerzeichen 
enthalten, gefolgt vom entsprechenden Farbencode - siehe Sei¬ 
ten 114/115 des Sinclair-Handbuchs. Die Farbencodeausgabe in 
dieser Weise setzt die Attribute aller folgenden Zeichen, da sie 
in den zeitweiligen Farbensystemvariablen ATTRT und MASKT 
gespeichert werden (wenn Sie durchsichtige Farben verwen¬ 
den). Diese Systemvariablen werden stets für Ausgabe zum 
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Bildschirm verwendet und von den ständigen durch den Fest¬ 
speicher neu geladen, der dazwischen BASIC-Befehle ausführt. 
Falls Sie das nicht selbst tun, brauchen Sie sich nur mit den zeit¬ 
weiligen Feldern zu befassen. 

Falls Sie Vorhaben, Zeichen direkt in die Bildschirmkarte zu set¬ 
zen, müssen Sie auch die Farbsteuerzeichen in die Attributkarte 
setzen, aber diese Karte wird als ein Byte für jede Position auf 
dem Bildschirm gehalten, beginnend bei Adresse 22528, so daß 
der Umgang damit nicht schwer ist. 

Die Randfarbe (Border) wird dadurch geändert, daß man die 
Farbcodenummer zu Port EfH (254 dezimal) schickt: 
BORDPORT: EQU 0EFH 

LD A, (COLOUR) ; Ihr eigener Datenbereich 
OUT (BORDPORT), A ; Randfarbe setzen 
Wenn Sie die Systemvariable BORDER verwenden wollen, 
müssen Sie berücksichtigen, daß dieses Datenfeld auch die Attri¬ 
bute für den unteren Bildschirmteil enthält. Eine Routine, um 
den Rand auf die in der Systemvariablen BORDER bestimmte 
Farbe zu setzen, wäre: 


BORDCR: EQU 23624 

; Systemvariable definieren 

LD A, (BORDCR) 

; Variable holen 

AND 38H 

; Randfarbe isolieren 

RRCA 

; in untere 3 Bits setzen 

RRCA 


RRCA 


OUT (0FEH), A 

; Randfarbe setzen 

RET 



Ton 

Gehen wir weiter zum Summer. Maschinencodeprogramme 
können diese Einrichtung sehr gut nützen und sind vielseitiger 
bei der Art der hervorgebrachten Töne, weil die Zeit für die da¬ 
zwischen ausgeführten Befehle so kurz ist, daß der Ton praktisch 
nicht unterbrochen wird. Bei der Verwendung des BEEP-Befehls 
in BASIC kann man die kleinen Unterbrechungen im Ton hören, 
wenn andere Befehle befolgt werden. 

Die ROM-Routine ist an Adresse 3B5H (= 949 dezimal) und 
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setzt voraus, daß die Registerpaare DE und HL vor Eingang ge¬ 
setzt werden. 

Das Registerpaar HL liefert die Frequenz des zu erzeugenden 
Tons. Ein Wert Null ist außerordentlich hoch, ein Wert - 1 
(oder FFFF hex) außerordentlich niedrig. In der Praxis verlangt 
das mittlere C (BEEP n, 0) in HL einen Wert von 666 h. 

Das Registerpaar DE sollte auf die Ausgabelänge gesetzt wer¬ 
den, aber Vorsicht! Die Länge des Tons hängt auch von der Fre¬ 
quenz ab. Wenn Sie DE also beispielsweise auf 100 h setzen, 
wird die Tondauer doppelt so lang, wenn die Frequenz halbiert 
wird. Das heißt, Sie müssen den Wert von DE abstimmen, damit 
eine vernünftige Tondauer herauskommt. Für das mittlere C, wo 
HL auf 666 h gesetzt ist, verlangt ein Ton von etwa einer Sekun¬ 
de, daß DE auf 100 h gesetzt wird. 

Probieren Sie Folgendes aus: 

BEEPER: EQU 3B5H 
GLISSANDO: 


LD 

HL, 1000H 

; Anfangsfrequenz 

LD 

SUDE: 

DE, 8 

; Verzögerung 

PUSH 

HL 


PUSH 

DE 

; Daten sichern 

CALL 

BEEPER 

; ein Geräusch erzeugen 

POP 

DE 

; Register wiederherstellen 

POP 

HL 

LD 

BC, 8 

; Frequenzerhöhung 

XOR 

A 


SBC 

HL, BC 

; neue Frequenz berechnen 

JR 

NC, SUDE 

; Schleife, während HL nicht Null 

RET 


; Rücksprung zu BASIC 


Dieses kleine Programm liefert einen ziemlich gleichmäßig glei¬ 
tenden Ton. Vielleicht können Sie es noch verbessern, um kom¬ 
plette Gleichmäßigkeit herzustellen. Auf jeden Fall ist es fast un¬ 
möglich, ihn mit BASIC so klar zu erzeugen, weil der Ton stets 
'rauhe Kanten’ hat. Manchmal können diese Kanten nützlich sein, 
aber wenn Sie verschiedene Werte für HL und DE ausprobie¬ 
ren, können Sie wirklich eine Vielzahl von Geräuschen hervor¬ 
bringen. 
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Der Drucker 


Ein Großteil des bisher zum Display Gesagten gilt auch für den 
Drucker. Innerhalb bestimmter Grenzen funktionieren sogar al¬ 
le Bildschirmroutinen auf dem Drucker, wenn das gewählte Ge¬ 
rät einfach von 2 auf 3 abgeändert wird! Vor allem ‘RST10’ gibt 
alle nachfolgenden Zeichen auf den Drucker aus. Versuchen Sie 
es noch einmal mit dem Programm zur Anzeige der Buchstaben 
des Alphabets, ändern Sie aber die erste Zeile ab zu ‘LD A, 3’, um 
den Drucker zu wählen: 


LD 

A, 3 ; 

; Druckerausgabe wählen 

CALL 

1601 h 

LD 

C, 30 ; 

; Spalte 3 (33 - 3 = 30) 

CALL 

PRNTAT ; 

; Ausdruckposition setzen (0DD9H) 

LD 

OP: 

A, 41H ; 

; Code für ‘A’ 

PUSH 

AF 

Zeichen sichern 

RST 

10H 

Zeichen drucken 

POP 

AF 

wiederherstellen 

INC 

A 

nächster Buchstabe im Alphabet 

CP 

5 BH 

geht das über ‘Z' hinaus? 

JR 

C, LOOP 

nein, also neues Zeichen drucken 

LD 

A0DH 

'ENTER', um Zeile zu drucken 

RST 

10H 


RET 

i 

; Rücksprung zu BASIC 


Vergleichen Sie diese Version mit der vorherigen - es gibt beina¬ 
he keinen Unterschied! Die Zeile ’LD B, 10’, mit der die Zeilen¬ 
nummer gesetzt wird, ist verschwunden, weil man auf dem 
Drucker nicht in einer bestimmten Zeile drucken kann. In der 
Praxis fällt es nicht ins Gewicht, ob die Zeile vorhanden ist oder 
fehlt, weil der Festspeicher Register B nicht beachtet, wenn der 
Drucker verwendet wird. 

Sie sollten daran denken, daß der Drucker nur dann eine Zeile 
druckt, wenn entweder ein 'ENTER'-Zeichen (hex d, dezimal 
13) geschickt wird oder wenn Sie versuchen, ‘tabulatorisch’ zu 
einer Position zu gelangen, die schon überschritten ist. Aus die¬ 
sem Grund sind vor dem Rücksprung zu BASIC die beiden zu¬ 
sätzlichen Zeilen eingefügt worden. 
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Beachten Sie, daß Sie 'Tab'-Positionen übermitteln können, in¬ 
dem Sie ein Hex-17-Zeichen eingeben (23 dezimal), gefolgt von 
einem Einzelzeichen mit der Tab-Position. Wenn diese zu groß 
ist, können Sie mit einer Fehlermeldung rechnen. 

Manchmal ist die Methode, mit 'RST 10’ zu drucken, unzurei¬ 
chend. Wenn Sie Grafik drucken wollen, gibt es ein kleines Pro¬ 
blem. 

Eine Routine bei Adresse 0ECDH druckt den Inhalt des Druk- 
kerpuffers 23296 (siehe Sinclair-Handbuch, Kapitel 24). Wenn 
Sie Ihre Grafik also in diesen Pufferspeicher stellen und CALL 
0ECDH (dezimal 3789) eingeben, wird sie ausgedruckt. Die 
Routine setzt den Puffer zusätzlich auf Nullen (entsprechend 
Leerstellen) zurück. 

Der Druckpuffer hat darin sehrviel Ähnlichkeit mit dem Display, 
da er eine Bit-Karte von 32 Zeichen zu je acht Pixelreihen ist. In 
diesem Fall entspricht die Anordnung aber genau dem, was Sie 
erwarten - die zweite Pixelreihe eines Zeichens folgt 32 Bytes 
darunter. 

Wenn Sie den Druckerpuffer benützen wollen, dann verwen¬ 
den Sie zuallererst eine Routine bei Adresse 0EDFH (dezimal 
3807), die den Puffer auf Nullen löscht. 

Außerdem ist eine vollständige Kopie des Bildschirms durch 
Aufruf der Routine bei 0EACH (dezimal 3756) zu erhalten. 
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ZXASM- 

ein symbolischer Assemblierer 

Wie schon versprochen, folgt hier ein vollständiger Assemblie¬ 
rer für den Spectrum. Diejenigen von Ihnen, die sich für Maschi¬ 
nencode begeistern, werden die Vorteile eines Assemblerpro¬ 
gramms erkennen - man braucht nicht mehr dauernd die Hex¬ 
code-Umwandlungstabellen zu wälzen! Wenn Sie mit Maschi¬ 
nencode erst angefangen haben, wird es durch die frühe Benut¬ 
zung eines Assemblierers um vieles leichter, Ihre Programme 
zum Laufen zu bringen, weil die Gefahr falsch codierter Anwei¬ 
sungen erheblich verringert wird. 

Was ist ein Assemblerprogramm nungenau? Wie Sie vermutlich 
wissen, verstehen Computer BASIC in Wirklichkeit gar nicht, 
sondern hören nur auf Zahlen, genannt ‘Maschinencode’, weil 
das der Code ist, den die Maschine erkennt. Leider können die 
Menschen sich nicht ohne große Mühe merken, was jede Zahl 
leistet. So sind Assemblierer entstanden. Dieses Programm ver¬ 
schafft Ihnen die Möglichkeit, anstelle von Zahlen einen mne¬ 
motechnischen Code zu verwenden, und da der mnemo¬ 
technische Code (kurz gesagt) eine grobe Beschreibung für den 
Ablauf der Anweisung bietet, ist er viel leichter anzuwenden. 
Dieser Assemblierer gestattet vor allem den Gebrauch des 
kompletten mnemotischen Standardcodes von Zilog, ein¬ 
schließlich Symbole als Ersatz für Daten und Befehlsadressen. 
Darüber später mehr. Zulässig sind mehrere zusätzliche Anwei¬ 
sungen, so daß Sie beim Schreiben Ihrer Routinen besonders fle¬ 
xibel sind. Beispielsweise können Sie mit der ORG-Anweisung 
Ihre Routine an jeder gewünschten Adresse assemblieren - Sie 
können diese Adresse mitten im Assemblieren sogar ändern, 
ohne auf Probleme zu stoßen. 

Wenn Sie Anfänger sind oder von Maschinencode nichts verste¬ 
hen, können Sie sich bei anderen Büchern zum Thema weiteren 
Rat holen. 

ZXASM (wie dieser Assemblierer heißt) ist allerdings ziemlich 
umfangreich, und die wahren Vorteile davon haben diejenigen 
unter Ihnen mit entweder einem Spectrum 48K oder einem 
Microdrive. Das liegt daran, daß die Anweisungen auf verschie¬ 
dene Art eingegeben werden können: 
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1. Als direkte INPUT-Daten. Das hat den Vorteil der 'Unverzüg- 
lichkeit’, der naheliegende Nachteil ist der, daß die Routine je¬ 
desmal von neuem eingegeben werden muß. 

2. Enthalten in REM-Anweisungen. Hier kann die Routine natür¬ 
lich entweder getrennt oder gemeinsam mit dem Assemblie¬ 
rersichergestelltwerden, so daß sie nach Wunsch assembliert 
werden kann. Der Nachteil hier: Die ganze Routine muß zu¬ 
sammen mit dem Assemblierer in den Speicher passen, und 
bei einer 16K-Maschine ist das nicht praktisch. 

3. Als gespeicherte Daten in einer Datei. Besitzer von Micro- 
drive-Geräten können die Anweisungen in einer Disketten¬ 
datei festhalten, die man wieder in den Assemblierer einiesen 
kann. Der einzige Nachteil hierbei istder, daß Sie einen Micro- 
drive haben müssen! Aber im Ernst: Wenn Sie Vorhaben, mit 
dem Spectrum in größerem Umfangzu programmieren, wäre 
das eine lohnende Geldanlage. 

Das bedeutet nicht, daß der Assembler bei der 16K-Version 
nutzlos ist, weil mit einer oder zwei kleinen Ausnahmen der ge¬ 
samte Maschinencode in diesem Buch mit dem Assembler in 
16K entwickelt worden ist, während der Code direkt über das 
Keyboard eingegeben wurde. Wie in der Einleitung schon er¬ 
wähnt, wird bei uns eine Maschinencodeversion dieses Assem¬ 
blierers auf Kassette erhältlich sein. Da sie weniger Speicherplatz 
braucht, sind alle Möglichkeiten verfügbar. 

Zur Beachtung: Dieser Abschnitt enthält mehrere Beispiele von 
Routinen in Assemblersprache. Nicht alle davon sind voll funk¬ 
tionierende Programme, sondern dienen nur zur Belehrung. Be¬ 
fassen Sie sich in diesem Sinn damit und versuchen Sie nicht, sie 
einzugeben, um zu sehen, was dabei herauskommt, wenn Sie 
nicht ausdrücklich dazu aufgefordert werden. 

Der Gebrauch von Symbolen 

Eines der größten Probleme, vor denen einen Maschinencode- 
Programmierer steht, besteht darin, Adressen für Sprung- und 
Aufrufanweisungen zu berechnen, und sie dann neu zu berech¬ 
nen, wenn später zusätzliche Befehle eingefügt werden müssen. 
Verwendet man statt dessen Symbole, dann berechnet der As¬ 
semblierer alle diese Adressen für Sie. Hier ein Beispiel. 
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Die folgende Routine füllt den ganzen Bildschirm mit Inkpunk¬ 
ten: 


LD 

HL, 32768 

; lade Displa/datei-Adresse 

LD 

BC, 704 

; 24 Zeilen zu 32 Zeichen 

LD 

(HL), 255 

; Display ganz auf Ink setzen 

INC 

HL 

; nächste Reihe auf Bildschirm 

DEC 

BC 

; Zähler verringern 

LD 

A, B 

; prüfen, ob Zähler Null 

OR 

C 


JR 

NZ, -8 

; nein - wiederholen 

RET 


; Rücksprung zu BASIC 

schön und gut, werden Sie 

sagen, aber wenn Sie jetzt zwi- 


sehen ‘INC HL’ und ‘DEC BC’ neue Anweisungen einfügen wol¬ 
len, müssen Sie zum Ausgleich auch den Befehl ‘JR NZ, - 8' än¬ 
dern. Sehen Sie sich das hier an 


DFILE: 

EQU 32768 


LENGTH: 

EQU 704 


BEGIN: 

LD 

HL, DFILE 

; Displayadresse 

LD 

BC, LENGTH 

; Zahl der Bytes 

LOOP: 

LD 

(HL), 255 

; auf ‘Ink’ setzen 

INC 

HL 

; nächste Reihe 

DEC 

BC 

; Zähler verringern 

LD 

A, B 

; prüfen, ob Zähler = 0 

OR 

C 

JR 

NZ, LOOP 

; nein - wiederholen 

RET 


; Rücksprung zu BASIC 


Das erste, worauf man hier achten muß, sind die zusätzlichen 
EQU-Anweisungen. Was bewirken sie? Die Antwort ist einfach. 
Im Anschluß an einen EQU-Befehl wird der Assemblierer, so¬ 
bald er (beispielsweise) den Namen DFILE sieht, (in diesem Fall) 
den Wert 32768 einsetzen. Damit bedeutet ‘LD HL, DFILE’ ge¬ 
nau dasselbe wie ‘LD HL, 32768’. Sie werden sich vielleicht fra¬ 
gen, was Ihnen das um Himmels willen bringen soll. Angenom¬ 
men, Ihre Routine verwendet diesen Wert mehrmals, und Sie 
müssen ihn jetzt ändern. Statt das ganze Programm auf jedes 
Vorkommen von ‘LD HL, 32768’ abzusuchen, könnten Sie einen 
einzigen EQU-Befehl abändern und neu assemblieren. 
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Zweitens: Beachten Sie, daß vor der Zeile 'LD (HL), 255’ das 
Symbol ‘LOOP’ aufgetaucht ist Das heißt: Sobald der Assem¬ 
blierer von jetzt an das Symbol ‘LOOP’ sieht, fügt er die Adres¬ 
se des Befehls ‘LD (HL), 255’ ein. Alle Sprung- und Aufrufbefeh¬ 
le können jetzt diesen Namen anstelle der üblichen Adresse ver¬ 
wenden. Dadurch wird alles viel einfacher. 

Sie können, wie oben gezeigt, ein Symbol auf zwei verschiedene 
Arten definieren. In jedem Fall muß nach dem Namen ein Dop¬ 
pelpunkt (:) kommen. 

Der Name kann an beliebiger Stelle in der Routine erscheinen - 
es gibt bestimmte Einschränkungen, die unten aufgeführt sind, 
aber zulässig sind Bezugnahmen vorwärts wie rückwärts. Bei¬ 
spiel: 

OR A 

JP NZ, ALLDUN 

LD (HL), A 

ALLDUN: RET 

Bei diesem Beispiel ‘sieht’ der Assemblierer den Befehl ‘JP NZ, 
ALLDUN’, bevor er weiß, wo ALLDUN überhaupt ist. Diese 
Art von Symbol wird als ’unaufgelöst’ bezeichnet und wird in ei¬ 
ner eigenen Tabelle festgehalten. Wenn alle Anweisungen as- 
sembliert sind, läuft er an der Liste unaufgelöster Symbole ent¬ 
lang, um festzustellen, wo sie vorgekommen sind, und setzt die 
richtigen Werte ein. Bleiben welche übrig, kommt es zu einer 
Fehlermeldung. Während der Assemblierung werden unaufge¬ 
löste Symbole mit einem Stern in Negativschrift bezeichnet. 

Die ORG-Anweisung 

Wenn Sie Ihre Assembleranweisungen eingeben, muß der As¬ 
semblierer wissen, wohin er den Maschinencode setzen soll. Er 
geht davon aus, daß Sie ihn über RAMTOP setzen wollen (siehe 
Systemvariable im Sinclair-Handbuch), aber das braucht nicht 
immerzuzutreffen. Sie wollen vielleicht zwei oder drei Routinen 
über RAMTOP haben und müssen dem Assemblierer deshalb 
sagen können, wohin der Code gehen soll. Das geschieht durch 
einen ORG-Befehl. Die Adresse nach dem ORG-Befehl wird für 
die gesamte nachfolgende Assemblierung verwendet. Ein Bei¬ 
spiel: 
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ORG 

32000 

; Code an diese Adresse 
setzen 

BWAIT: CALL 

1F54H 

; ROM-Routine für Prüfung 
auf BREAK 

JP 

NC, BWAIT 

; warten, bis BREAK ge¬ 
drückt wird 

RET 



ORG 

32100 

; weiterer Code an dieser 
Adresse 

LD 

A, (HL) 


OR 

A 


JP 

NZ, BWAIT 


RET 




Die Routinen können in einem BASIC-Programm verwendet 
werden, wenn man die ‘ORG’-Adresse in einer USR-Funktion 
angibt - in diesem Fall LET X = USR 32000. 

Daten angeben 

Ihre Maschinencode-Routinen brauchen vielleicht einige Daten¬ 
bereiche, entweder Einzelb/tes oder Bytepaare (Wörter), wo 
das niederwertige Byte vor dem hochwertigen kommt 
Dafür stehen zwei Befehle zur Verfügung: 

DEFB um ein einzelnes Datenbyte zu definieren 
DEFW um ein Standard-Wörterpaar zu definieren 
Normalerweise würde vor dem Befehl ein Symbol verwendet 
werden, damit während der ganzen Routine namentlich auf die 
Adresse der Daten Bezug genommen werden kann. 

Mit der folgenden Routine können Sie nach einer Koordinaten¬ 
tabelle, die bei der Symboladresse'DATA’ beginnt, auf dem Bild¬ 
schirm Punkte zeichnen: 


FFSt 

PLOT: 

EQU 22E5H 

; ROM 'PLOT'-Routine 

FFSS 

Zitvpb 

LD 

HL, DATA 

; Punkte-Koordinatentabelle 

rrsc ■ 

<tC 

LD 

B, (HL) 

; Zahl der Punkte 

>3 

INC 

HL 

; Adresse der ersten Punkte¬ 




koordination 

fr so \ 

PLLOOP: 



Cb 

PUSH 

BC 

; Register sichern 

FFSG | 


LD 

C, (HL) 

; X-Koordinate 
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; Y-Koordinate 

; Zeiger zu Tabelle sichern 
; Punkt zeichnen 
; Register wiederherstellen 

; für alle Punkte wiederholen 
; alles fertig 

; Zahl der folgenden Punkte 
; X-Koordinate 
; Y-Koordinate 
; X 
; Y 
; X 
; 102 

Sie können versuchen, die Routine genauso einzugeben, wie sie 
hier steht Bevor Sie anfangen, sollten Sie aber die Adresse in 
RAMTOP verringern, indem Sie CLEAR 32599 als direkten Be¬ 
fehl eingeben. Nachdem die Routine (ohne Fehler!) assembliert 
worden ist, fahren Sie sie durch Eingabe von LET X = USR 
32600. 

Das selbstsuchende Lesen (Autoscan) 

Das betrifft nur diejenigen von Ihnen, die mehr als 16K RAM ver¬ 
fügbar haben, weil es davon abhängt, daß die gesamte Assem¬ 
bler-Routine in REM-Anweisungen steht, was mit 16K einfach 
nicht geht. 

Wenn Sie Autoscan wählen, suchtZXASM das ganze Programm 
nach Ihren Assemblieranweisungen ab und assembliert sie auto¬ 
matisch. Dadurch sind große Routinen viel leichter zu entwik- 
keln; man kann sie getrennt aufbereiten und bearbeiten. 
Schreiben Sie ein Programm, das ausschließlich aus REM-Anwei¬ 
sungen besteht, wo Ihre Befehle in diesen Anweisungen enthal¬ 
ten sind. Ein Anfangs-REM sollte lediglich eine offene Klammer 
enthalten - also etwa 10 REM. 

ZXASM sucht danach und geht davon aus, daß alle nachfolgen¬ 
den BASIC-Befehle REM-Anweisungen sind, die Ihren Code ent- 



INC 

HL 

LD 

B, (HL) 

INC 

HL 

PUSH 

HL 

CALL 

PLOT ES it 

POP 

HL 

POP 

BC 

DJNZ 

PLLOOP 

RET 



DEFB3 

4A 

DEFB10 


DEFB100 


DEFB11 

1$ 

DEFB101 


DEFB12 

a 

DEFB102 
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halten. Das setzt sich fort, bis eine REM-Anweisung gefunden 
wird, die nur eine Schlußklammer enthält - 999 REM. 
Zwischen REM-Befehl und Klammer darf es keine Zwischenräu¬ 
me geben. 

Außerdem sollten Sie nur Zeilennummern unter 1000 verwen¬ 
den, weil ZXASM höhere Zeilennummern benützt. Wenn Sie 
mehr brauchen, könnten Sie Zeilennummern zwischen 3000 
und 5000 nehmen, die dort nicht benützt werden. 

Sobald Ihr kleines ‘Programm’ eingegeben ist, sichern Sie es für 
sich auf Kassette. Wenn Sie ZXASM fahren, werden Sie aufge¬ 
fordert, den Namen Ihrer Routine auf Band zu nennen, dann 
wartet es darauf, daß Sie das Band starten. Dazu später‘ZXASM 
in Betrieb’. Inzwischen hier ein Beispiel für Sie: 

10 REM Berechnen, wieviel Speicherplatz gebraucht wird 
20 REM Keine ORG-Angabe, also wird der CODE 
30 REM automatisch über RAMTOP gesetzt. 

40 REM ( 

50 REM PROG: EQU 23635 
60 REM ELINE: EQU 23641 
70 REM START: LD HL, (ELINE) 

80 REM LD, DE, (PROG) 

90 REM XOR, A 

100 REM SBC HL, DE 

110 REM LD B, H 

120 REM LD C, L 

130 REM RET 

140 REM) 


Sie brauchen es nicht schön säuberlich in Kolonnen zu setzen 
wie hier, aber lesbarer wird es dadurch schon. Der Assemblierer 
setzt für Ausdruckzwecke alles automatisch in Kolonnen. 

Bei diesem Beispiel geben Sie das obige Programm so ein, wie es 
dasteht, dann sichern Sie es unter dem Namen - MEMO - 
RY.ASM. Später, wenn Sie die Betriebsanweisungen lesen, erfah¬ 
ren Sie, wie Sie das Programm wieder eingeben. 

Denken Sie daran: Wenn Sie in eine REM-Anweisung einen 
Doppelpunkt setzen, geht der Spectrum davon aus, daß die als 
nächste gedrückte Taste ein Schlüsselwort sein wird (der Cur¬ 
sor verwandelt sich in ein ‘K’). Um dem zu entgehen, drücken 
Sie erneut REM, geben den Rest der Assemblerzeile ein, gehen 
zurück und löschen das zusätzliche Schlüsselwort. 
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Maschinencode sicherstellen 


ZXASM dient als Übersetzer - Assembleranweisungen werden 
in Maschinencode verwandelt. Ihre Routine kann, sobald sie as- 
sembliert ist, durch Verwendung der CODE-Option nach dem 
SAVE-Befehl gesichert werden. Beispielsweise sichert 
SAVE “MEMORY” CODE 32500,12 
12 Bytes beginnend bei Adresse 32500. Vergessen Sie nicht, den 
Befehl CLEAR zu verwenden, bevor Sie diese Routine wieder la¬ 
den. Der entsprechende LOAD-Befehl lautet dann: 

LOAD “MEMORY" CODE 

Da der wirksame Maschinencode gesichert worden ist, muß die 
Routine nicht immer wieder neu assembliert werden, wenn man 
sie in den Speicher laden will. Das ist offenkundig ein Vorteil, 
wenn Sie Programmkopien an Ihre Freunde weitergeben - Sie 
brauchen Ihnen nur den gesicherten Code zu geben, nicht das ei¬ 
gentliche Assembler-Ursprungsprogramm. 

Anderes 

Jede Zahl, die in eine Anweisung eingegeben werden soll, kann in 
einer der folgenden Formen eingegeben werden: 

1. Als Dezimalzahl (z. B. 1234) 

2. Als Hexzahl mit dem Zusatz 'H'. Beachten Sie, da die erste Zif¬ 
fer eine Zahl zwischen 0 und 9 sein muß, sonst wird das Ganze 
als Symbolname behandelt. Z. B. steht 0FFFFH für -1,123H 
für 291 dezimal. 

3. Als definiertes Symbol. Das erste Zeichen muß ein Buchstabe 
zwischen A und Z sein, und nur die ersten sechs Zeichen sind 
von Bedeutung. Dem Symbolnamen kann wahlweise ein posi¬ 
tiver oder negativer Dezimal-Versetzungswert sein. Beispie¬ 
le: DFILE, COLUMNUMBER, A 22 + 1, START - 6. 

4. Als Undefiniertes Symbol mit ähnlichen Aufbaubeschränkun- 
gen. 

Anweisungen, die 8 Bit-Daten erfordern, relative Sprünge aber 
ausschließen (etwa ADD A, 23) können Daten vom Typ 4 (Un¬ 
definiert) nicht verwenden. Ebenso können ORG, EQÜ, DEFB 
und DEFW Daten von Typ 4 nicht verwenden. 
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Obwohl JR- und DJNZ-Anweisungen eine relative Versetzung 
benötigen, wird diese vom Assemblierer berechnet. So sollten 
JR und DNJZ mit einer absoluten Adresse angegeben werden 
(wie bei einemJP-Befehl); die Arbeit macht dann der Assemblie¬ 
rer. Beispiel: JR NC, 0FF80H. Der Assemblierer berechnet nach 
der laufenden Assembleradresse die Versetzung, die erforder¬ 
lich ist, um Adresse 0FF80H zu erreichen. 
Zilog-Mnemotechnik enthält mehrere Widersprüchlichkeiten, 
die der Standardisierung wegen vom Assemblierer berücksich¬ 
tigt worden sind. Vor allem benötigen die Anweisungen ADD, 
ADC und SBC zwei Operanden (etwa SBC A, 38), während 
SUB, AND, OR, XOR und CP nur einen benötigen (etwa SUB 
38). Der EX-Befehl verwendet die Operanden EX DE, HL - das 
Umgekehrte wird nicht angenommen. 

Die Anweisungen JP (HL), JP (IX) undJP (IY) sind logisch unrich¬ 
tig, aber der Assemblierer nimmt sie nur in dieser Form an. 
ZXASM verwandelt alle Eingaben in Großbuchstaben. Es spielt 
also keine Rolle, ob Sie Ihr Programm in Klein- oder Großbuch¬ 
staben oder sogar gemischt eingeben. 

Sie können neben Ihren Assemblerbefehlen Kommentare an¬ 
bringen, wenn Sie davor einen Strichpunkt setzen. ZXASM 
beachtet den Rest einer Zeile nach einem Strichpunkt nicht. 
Wenn Sie Autoscan verwenden (falls Sie mehr als 16K RAM ha¬ 
ben), können Sie in einer Zeile mehr als einen Befehl unterbrin¬ 
gen, wenn Sie zwischen die Anweisungen Ausrufungszeichen 
setzen - etwa so: 

10 REM ( 

20 REM Id hl, (23641)! Id de, (23635) 

30 REM xor a! sbc hl, de! Id b, h! Id c, I 
40 REM ret 
50 REM) 

Dieses Beispiel entspricht der Routine “MEMORY" vorhin. 

Fehlermeldungen 

Wir machen alle Fehler - bedaure! - die sich aus einer Vielzahl 
von Gründen ergeben können. Man kann sich bei einer Anwei¬ 
sung verschreiben oder eine Registerkombination verwenden, 
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die dem Befehl nicht entspricht; das sind nur zwei Beispiele. 
Wenn ZXASM in Ihrer Routine auf etwas stößt, das nicht in Ord¬ 
nung ist, zeigt es an der betreffenden Zeile einen Fehler an und 
fordert Sie auf, neue einzugeben. (Wenn Sie Autoscan verwen¬ 
den, fährt ZXASM einfach fort und überläßt Ihnen die Fehlerkor¬ 
rektur nach dem Abschluß.) 

Als Beispiel: 

7FD8 LD TT, 200 ; wer kennt ein Registerpaar ‘TT’? 
ZXASM zeigt an: 

7FD8 ERROR 9 LD TT, 200 
und wartet auf die richtige Eingabe. 

Hier eine vollständige Liste der verschiedenen Fehlercodenum¬ 
mern und ihrer Bedeutung: 

Fehlernummer Bedeutung 

2 Symbol schon definiert 

6 Zahl außer Bereich (-32767 bis 65535) 

9 Ungültige Anweisung, unzulässiges Re¬ 

gister/Registerpaare, falscher Operand. 

98 Tabelle 'unaufgelöster’ Symbole ist voll. 
Sie können die Grenze durch Verände¬ 
rung der Variablen 'nu’ in Zeile 1010 er¬ 
höhen, aber dann bleibt in der 16K-Ver- 
sion vielleicht nicht genug Speicher¬ 
platz. Wenn nicht, sollten Sie versu¬ 
chen, Ihre Routine so umzubauen, daß 
weniger unaufgelöste Symbole Vor¬ 
kommen. Das ist beispielsweise da¬ 
durch zu erreichen, daß man DEFB-und 
DEFW-Befehle vorne an die Routine 
setzt statt untenhin. 

99 Tabelle definierter Symbole ist voll. Sie 
können die Grenze erhöhen durch Ver¬ 
änderung der Variablen ‘ns’ in Zeile 
1010, aber hier gelten ähnliche Ein¬ 
schränkungen wie bei Fehler 98. Wenn 
Sie die Zahl der Symbole nicht verrin¬ 
gern können, lassen sich einige immer 
durch ihre konkreten Werte ersetzen. 
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Verbindung mit dem Disassemblierer 

Wenn Sie die Symboleinrichtungen bei ZXASm genutzt haben, 
werden Sie diese Symbole vielleicht wieder verwenden wollen, 
wenn Sie die Disassemblierer- und Maschinencode-Überwa¬ 
chungsprogramme fahren. Sie könnten sie freilich wieder einge¬ 
ben, wenn die Aufforderung ‘Enter Symbols?’ erscheint, aber es 
gibt einen viel einfacheren Weg. Wenn Ihre Assemblierungfertig 
ist, nehmen Sie eine leere Kassette und: 

SAVE “Symbole" DATA S$ () 

Array S$ () enthält alles, was der Disassemblierer braucht, um 
Ihnen ein genaues Listing Ihrer Routine zu liefern, Datenbezug¬ 
nahmen, Sprung- und Aufrufbefehle in ihre Assemblerentspre¬ 
chung zurückzuübersetzen. Wenn Sie den Disassemblierer fah¬ 
ren, sollten Sie sich an das Verfahren halten, eine Symboltabelle 
vom Band zu laden - siehe Betriebsanweisungen für den Disas¬ 
semblierer. 

ZXASH in Betrieb 

Der Assembler wird im folgenden Listing in zwei Teilen gezeigt. 
Der Grund dafür: Er ist für einen 16K-Spectrum (bei dem nur 9K 
zur Verfügung stehen) einfach zu groß. Einige Bestandteile sind 
deshalb in ein eigenes Programm übernommen worden, das au¬ 
tomatisch mit dem Hauptprogramm durch MERGE vermischt 
wird, wenn mehr als 16K festgestellt werden. Diese zusätzlichen 
Bestandteile umfassen a) Autoscan, wo Ihr Assemblercode in 
REM-Anweisungen eingegeben werden kann, und b) vergrö¬ 
ßerte Symboltabellen (die 64 vereinbarte und unaufgelöste 
Symbole zulassen). 

Beginnen Sie den Assemblierer mit: 

LOAD "ZXASM” 

Wenn er geladen ist, prüft er, ob mehr als 16K RAM zur Verfü¬ 
gung stehen. In diesem Fall versucht er automatisch ein Pro¬ 
gramm namens “ZXASM/48K” damit zu mischen. Sie sollten 
darauf achten, daß Ihr Assemblerband beide Programme hinter¬ 
einander enthält. 

Wenn er schließlich geladen ist, stellt er die Frage: 

Hard copy? 
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Wird die Antwort “Ja" eingegeben, erscheinen alle Ausgaben, die 
sonst zum Bildschirm geschickt werden, auf dem Drucker. Das 
ist außerordentlich nützlich, wenn Sie die Autoscan-Einrichtung 
verwenden, weil Sie dann das Ganze fahren, sich selbst überlas¬ 
sen und eine Tasse Kaffee trinken gehen können! 

Als nächstes werden Sie gefragt: 

Auto scan? 

Wenn die Antwort ‘Nein’ ist oder Sie nur ‘ENTER’ drücken, geht 
ZXASM davon aus, daß alle Eingaben vom Keyboard kommen. 
Er zeigt die laufende Assembleradresse (Vorgabe ist über RAM- 
TOP) und wartet auf Ihre Anweisungen. In dem folgenden klei¬ 
nen Beispiel werden alle Meldungen, die der Assemblierer zeigt, 
fett gedruckt angegeben: 

LOAD “ZXASM” 

Hard copy? nein 

Auto scan? nein (nur, wenn Sie mehr als 16K haben)- 
7DE8 Id bc, 100 

7DEB ret 

7DEC (zum Abschluß nur ‘ENTER’ drücken) 

OK 

Ist die Antwort auf die Frage ‘Autoscan’ ‘ja’, werden Sie weiter 

gefragt. (Mit Quellprogramm von Band 

Merge source from tape? fischen?) 

Wenn Sie ‘nein’ antworten oder nur ‘ENTER’ drücken, geht 
ZXASM davon aus, daß Sie Ihren Assemblercode in REM-An- 
weisungen schon kombiniert haben und sucht sofort danach. 
Wenn Sie aber ‘ja’ antworten, fordert das Programm Sie auf, den 
Namen Ihres Assemblercodes auf Band einzugeben und wartet 
auf den Bandlauf. Ihr Assemblierer wird mit ZXASM gemischt, 
dann beginnt die Suche danach. 

Nichtvergessen: Wenn Sie Autoscan verwenden, müssen Sie 
ein 'REM(' einfügen, um ZXASM zu zeigen, daß Ihr Code an¬ 
fängt, und ein 'REM)’, um das Ende zu bezeichnen. Wenn Sie das 
‘REM)’ vergessen, versucht ZXASM sich selbstzu assemblieren 
und liefert Fehler. 

Hier ein Laufbeispiel mit Autoscan: 

LOAD “ZXASM” 

Hard copy? ja 
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Auto scan? ja 

Merge source from tape? ja 
Enter tape name: MEMORY.ASM 
START TAPE THEN PRESS A KEY 

OK 

Das Beste ist jetzt, einen Versuch zu wagen. Im Anfangsteil über 
Maschinencode sind einige Routinen aufgeführt, die Sie selbst 
eingeben können, nur um einmal zu sehen, wie das alles zusam¬ 
menhängt. Außerdem sind das auch an sich ganz nützliche Pro¬ 
gramme. 

Wenn Ihre Assemblierungfertig ist, zeigt ZXASM eine Liste aller 
von Ihnen verwendeten Symbole neben ihren jeweiligen Adres¬ 
sen. Falls einige Ihrer Symbole mit Bezugnahme nach vorn nicht 
aufgelöst werden können (weil Sie vergessen haben, das Symbol 
zu deklarieren), sehen Sie außerdem von diesen eine Liste mit 
der Assembleradresse, wo das unaufgelöste Symbol besteht. 
Unaufgelöste Symbole werden als Fehler eingestuft, in der ab¬ 
schließenden Fehlerzählung erscheinen sie auch. 

Wenn ZXASM schließlich Fehler entdeckt hat, wird in einer Zei¬ 
le am Ende die Gesamtfehlerzahl angegeben. Sie sollten sie prü¬ 
fen und ausbessern und Ihr Programm neu assemblieren. 

Hier ein vollständiges Beispiel mit der ‘MEMORY’-Routine von 
vorhin, eingegeben mit einigen ‘Probe’-Fehlern: 

LOAD “ZXASM” 

Hard copy? nein 
Auto scan? nein 
7F58 prog: equ 23635 
7F58 eine: equ 23644 
7F58 Start 
7F58 Start: 

7F58 Id hl, (eline) 

7F5B Id d, (prog) 

7F5B Id de, (prog) 

7F5F xor a 
7F60 sbc de, hl 
7F60 sbc hl, de 
7F62 Id b, h 
7F63 Id c, I 
7F64 ret 
7F65 
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Hinweise für den Gebrauch 
von ZXASM 


Angenommen, Sie geben ein Programm über die Tastatur ein 
und entdecken plötzlich, daß Sie eine Anweisung falsch eingege¬ 
ben haben. So könnten Sie eingegeben haben: 

LD HL, 100 

wo Sie in Wirklichkeit LD HL, 100H eingeben wollten. Das stellt 
kein Problem dar, weil Sie jetzt den ORG-Befehl verwenden 
können, um die Assembleradresse auf den falschen Befehl zu¬ 
rückzusetzen, ihn neu einzugeben, der Adresse den ursprüngli¬ 
chen Wert zurückzugeben und fortzufahren. Sehen Sie sich das 
einmal an:. 


7DE8 Id hl, 100 
7DEB Id de, 700 h 
7DEE Id bc, 32 
7DF1 org 7 de, 8 h 
7DE8 Id hl, 100 h 
7DEB org 7 df 1 h 
7DF1 1 dir 


; sollte LD HL, 100H sein 
; noch nichts gemerkt! 

; ORG-Adresse zurücksetzen 
; richtige Anweisung eingeben 
; ORG-Adresse wieder umstellen 
; normal fortfahren 


Wenn Sie vergessen, ein Etikett vor eine Anweisung zu setzen, 
zu der Sie später zurückspringen wollen, können Sie ebenso 
leicht einen EQU-Befehl eingeben, der den Namen des Etiketts 
und die entsprechende Adresse angibt. Beispiel: 

7E00 11 d b, 8 
7E02 Id hl, 7 f00h 

7E05 cp (hl) ; das hätte ein Etikett gebraucht! 

7E06 jr z, found 
7E08 inchl 

Jetzt ist der Fehler bemerkt worden - die Zeile bei Adresse 
7E05 hätte eingegeben werden sollen als ‘LOOP: CP (HL)’, da¬ 
mit die nächste Anweisung lauten konnte: ‘DJNZ LOOP’. Das 
Problem läßt sich so lösen: 

7E09 loop: equ 7 e 05 h 
7E09 djnz loop 
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Denken Sie daran, daß Sie Ihren Maschinencode mit LOAD auch 
aus einem BASIC-Programm übernehmen können, nicht nur 
durch einen direkten Befehl. 

ZXASM-Usting 

Wie vorhin schon erwähnt, bestehtZXASM aus zwei Teilen. Auf 
diese Weise kann für die Leute mit mehr als 16K RAM die zu¬ 
sätzliche Autoscan-Einrichtung eingefügt werden. 

Geben Sie das erste Programm ein und sichern Sie es unter dem 
Namen ‘'ZXASM". Das zweite Programm sollte unter dem Na¬ 
men "ZXASM/48K” sichergestellt und unmittelbar hinter 
ZXASM auf demselben Band gespeichert werden. 

Beachten Sie, daßZXASM/48KmitZXASMgemischteinigeZei- 
len überschreibt. Das ist Absicht - verändern Sie keine der Zei¬ 
lennummern, wenn Sie die Programme eingeben. 

Das Programm ist im Aufbau besonders kompliziert. Ich habe 
zwar neben dem Listing die üblichen Kommentare eingefügt, 
aber es könnte Ihnen trotzdem schwerfallen, dem allgemeinen 
Ablauf des Programms zu folgen. Das ist kein großes Wunder, 
weil ein Assemblierer eben ein ziemlich großes Programm ist. 

Dieses hier wurde, wo das möglich war, so gestutzt, daß für den 
kleineren Spectrum die Höchstzahl an Möglichkeiten heraus¬ 
kam. 

1000 REM ZX Spectrum Assembler 

1001 REM ©1982 Phipps Associates 

1005 LET j=VAL "1": IF PEEK VAL mit ZXASM/48K mischen 
"23731"WAL "127" THEN GO SUB VA 
L " 7900 " 

1010 LET ns=10: LET nu=10 siehe Text 

1020 DEF FN a(x$) = (;<$>="A" AND x 
*<="Z"> 

1030 DEF FN n <x*> = (:<*>= “0" AND x 
$< = 11 9 » ) 

1035 DEF FN s$ ( k ) =a$ < x < x,j)+j TO 
x(x,2)> 

1040 DEF FN h(x)=INT (x/256) 

1050 DEF FN 1(x)=x-256*FN h(x) 

1060 DEF FN j () = JP" OR m$=" 

CALL" OR <n$="RET" OR mf="JR"> 

1070 DEF FN v(xf)=CODE xT(7)+256 
*CODE x$<8> 
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1080 DEF FN i (x) =PEEK x+256*PEEK 
(x + j ) 

1085 DEF FN r () =di-vde-f * (add+2) 
1090 DIM st- (ns+nu+j+j , VAL "8"): 
DIM 1t(VAL "6"): DIM tt(VAL "2") 
1095 LET st(.j)=CHRt NOT i 
1100 LET u=NOT j: LET er=u: LET 
ed=VAL "237" 


1110 LET mt="Hard copv?": GO SUB 
9000: LET hc=j+j+(CHRt CODE at= 
"J") 


1120 REM (reserved) 

1130 LET add=FN i (VAL "23730" ) +V Vorgabeadresse holen 


AL "1" 
1140 CLS 


PRINT #hc 


«Ad d ■- 


Hex 


1200 LET e=NOT j: LET vdef=j: LE 
T dl =e: LET dd=e: LET ec=e: LET 
l=e: LET w=e 

1210 LET h=add: GO SUB 9100: LET 
mt=ht: GO SUB 7700: IF end TUEN 


Negativschrift verw. 


GO TO VAL "5000" 


1220 LET mt="" 

1230 DIM t(2): DIM x<4,2>: LET t 
=NOT j: LET p=j: LET tt="00" 

1240 FOR X = j TO LEN at Eingabezeile abtasten 

1245 IF at (;•;)="; " THEN GO TO 130Kommentare ignorieren 
0 

1250 I F t ’-i. y ( at (X ) \ s' " " AND at (X / Wortende bezeichnen 
<>",") THEN LET x (p,t+j) =x- j: LE 
T p=p+t: LET t=NOT t: IF p>4 THE 
N GO TO 1310 


1260 NEXT x 

1300 IF x(p,j) OR p=j THEN LET x 
(p,J+J)=x~j 

1310 LET lx=(FN st ( j ) (LEN FN St (auf Symbol prüfen 
j))=":") 

1320 LET mt=FN st(j + lx) Befehl holen 

1400 LET jump=FN jO ist Das JP/JR/CALL? 

1410 FOR L j 10 jMj: LET xt FN ^Opklassen bestimmen 
t(j+t+Ix): GO SUB 7400: NEXT t 
1500 LE I nt tt"hmt Abtastcodeerzeuqen 

1510 LET 11= (LEN FN st (I x+2) < >0 Wieviele Operanden? 

: LET 12=(LEN FN st(1x+3)<>0): I 
F 11 THEN GO TO 1600 

1520 IF mt=" " THEN GO TO 1900 keine Anweisung 
1530 FOR l=j TO j + j: LET 1-VAL " kein Optyp prüfen 
2010+1*10": GO SUB 8300: IF NOT 
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1 /2 Optypen prüfen 


X THEN NEXT 1 
1550 GO TO 1630 
1600 LET i=VAL "2060+12*20": 

1=NOT j 

1610 GO SUB 8300: IF NOT x + 12 TH 
EN LET 1=2070: GO SUB 8300 
1615 IF x THEN GO TO 1650 
1620 RESTORE VAL "2000+40*(12=0) 

": GO SUB 8400: IF x THEN GO TO 
1800 

1630 IF NOT X THEN LET ec=VAL "9ungültige Anweisung 


1640 GO' TO 1800 
1650 LET n=x-j: RESTORE i+j: 
n*=tt: GO SUB 8400: IF NOT 
EN LET ec=VAL "9" 

1800 IF ec THEN GO TO 1960 


LET 
: TH 


mt="ORG" THEN LET add=di 
di: GO SUB 9100 
e THEN F’QKE add,dd: 

add+j+j,dis 

READ xt: PO 
2 ) , VAL xt 


1820 IF 
: LET h 
1830 IF 

=j+j THEN POLE 
1840 FOR x=0 TO 1-j: 
KE add+x+(e< >0)+x*(e= 
NEXT x 

1900 IF NOT vde-f THEN 
0 

1910 
1960 
1920 


nicht ausgeb. bei Fehl, 
auf Pseudo-Op prüfen 

IF eprüf.,oblX/IY-Klasse 
Ausgabedistanz 


IF NOT lx OR ec 


GO SUB 720 Ausgabe Maschinencode 
THEN GO TO Undefiniertes Symbol? 


FN Auf Etikett prüfen 

TH. 


LET 1t=FN st(lx) < TO LEN 
st(Ix)-j): GO SUB 7600: IF v 
EN LET ec=2: GO TO 1960 
1925 IF s=ns+j THEN LET ec=VAL 
GO TO 1960 

LET v=add : IF mt="EQU" THEN neu ausgleichen 


schon vorhanden? 
volle Tabelle 


99": 
1930 
LET 
1940 


st(s,7 


TO 


v=di 

LET st(s)=lt: LET 
>=CHRt FN 1 (v) +CHRt FN h(v> 

1950 LET st- ( j ) =CHRt (s~j) Symbolzählung aktual. 

1960 GO SUB 7300: IF ec THEN LET Zeile anzeigen 
er=er+j: GO TO VAL "1200' 

1970 LET add=add+l+e 
1990 GO TO 1200 

2000 DATA "11LD","1","1","64+T(1 
)*8+T(2)" 

2001 DATA "13LD","vdef ","2","t(1 
)*8+6","dl" 

2002 DATA "14LD","t(1)=7","3","5 
8" ,"dl","dh" 


neue Eingabe abwarten 
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O (I II T ll ll A 
H •-* •> + 

«A» *«£ 


2003 DATA "15LD","(t(1)=7)*(t(2) 
< 2 ) " , " 1 " , "t ( 2 ) *16-1-10" 

2004 DATA "23L.D" , "t (1) < > 6 " , "3" , " 
t(1)*16+1","dl","dh" 

2005 DATA " 24LD " , " t. (1) 

2 " "d 1 ","dh " 

2006 DATA "24LD","t(1)<4","4","e 

d" , " 75 +t ( 1 ) *16" , "d'l " , "dh" 

2007 DATA "41LD","t < 2 )= 7 ","3","5 
0 " , "dl","dh" 

2008 DATA "42LD","t(2)=2","3","3 
4" , "dl","dh" 

2009 DATA " 42L.D " , " t (2) < 4 " , " 4 " , " e 
d","67+t(2)* 16","dl " , "dh" 

2010 DATA "51LD","(t(2)=7)*(t(1> 
<2)","1","t(1)*16+2" 

2011 DATA "99","","2100" 

2020 DATA "RET","201","NOP","0", 
" RL.CA " , " 7" , " RRCA ","15"," RLA " , " 23 
"."RRA","31","DAA","39","CPL","4 
7","SCF","55","CCF","63","HALT", 
"118","EXX","217","DI","243","EI 

ll ll ll ii cpcp ii ii ii 

2030 DATA "NEG","ED"," 68 ","RETN" 
,"ED","69","RETI","ED","77","RRD 
","ED","103","RLD","ED","111" , "L 
DI","ED","160","LDIR","ED","176" 
,"LDD","ED","168","LDDR","ED","1 
84 " , " CPD " , " ED " , " 169 " , " CF'DR " , " ED " 
,"185","CPI","ED","161","CPIR"," 

g£)ii H l ~7~7 11 n 9 ^ n «I ii ii ii 

2040 DATA’"30JR","ABS FN r< ><128 
","2","24","FN r()" 

2041 DATA "10INC"," 1 ","1","4+T (1 
) * 8 " 

2042 DATA "20INC","T(1)<>4","1", 
"3+T(1)*16" 

2043 DATA "10DEC",“1","1","5+T(1 

'j ^.0 I« 

2044 DATA "20DEC","T( 1 )< > 4 "," 1 ", 
"11+T(1)*16" 

2045 DATA "30DJNZ","ABS FN r()<l 
28","2","16","FN rO" 

2046 DATA "60RET","1","1","192+T 
C 1 '? * 8 " 

2047 DATA "20P0P","T(1> <>3","1", 
"193+T(1> *16-16* < T <1)=4)" 

2048 DATA "20PUSH","T(1)<>3"," 1 " 
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,"197+T(1>*16-16*(T<1>=4> " 

2049 DATA "30RST","vdef AND dl<= 

56","1 "199+INT (dl/ 8 )* 8 " 

2050 DATA "10JP","t(1)= 6 ","1","2 

2051 DATA "30IM","vdef*(dl<3>*(d 
1>=0)","2","ed","70+16* <d1 = 1)+24 
*(dl"= 2 ) " 


2052 DATA "30JP","1","3","195"," 


dl","dh" 

2053 DATA "30CALL","1","3","205" 
"dl" "dh" 

2054 DATA "30DEFB" , "vdef " , " 1 " , "d 


1 " 

2055 DATA "30DEFW","vdef","2","d 
1 " , "dh" 

2056 DATA "300RG","vdef","0" 

2057 DATA "30EQU","vdef AND lx", 
" 0 " 


2059 DATA "99", 

2060 DATA "","" 
XOR","OR","CP", 

2061 DATA "10", 
T (1) " 

2062 DATA "30", 
*8","dl" 

2063 DATA "99", 

2070 DATA "RLC" 
"SLA","SRA","", 

2071 DATA "10", 
8+t (1) " 


II II II Q II 

,"SUB","","AND"," 

II 99 <1 

" 1 ","1","128+n*8+ 
"vdef","2","198+r 

n H ii ii 

,"RRC","RL","RR", 
"SRL","99" 

"1","2","203","n* 


2072 DATA "99","","0" 

2080 DATA "ADD","ADC","","SBC", 

99 ii 


2081 DATA "11","t(1)=7","1","128 
+n* 8 +t( 2 )" 

2082 DATA "13","t(1)=7","2","198 
+n* 8 ","dl" 

2083 DATA "22"," (t (1) =2) * (t (2)<> 
4)*(n =0)","1","9+t(2)*16" 

2084 DATA "22","<t(1)=2)*(t(2)<> 
4) * (nOO) " , "2" , "ed" , "78~n*4+t (2) 
*16" 


2085 DATA "99","","0" 

2100 DATA "63JP","1“,"3","194+t < 
1 )* 8 ","dl","dh" 

2101 DATA "63JR" , "t (1X4 AND ABS 
FN r()<128","2","32+t(1)*8","FN 
r () " 
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2102 DATA “22EX","<t(1)=4)*(t(2) 
=4)","1" ," 8 " 

2103 DATA "22EX","<t<1)=1)* (t (2) 

-j-O ^ »» I» I* 

2104’dATA "52EX","(t(1)=3)*(t(2) 

-.O’i «i ii ii iio97«i 

2112’DATA "31 BIT" , "vde-f AND dl <8 
","2","203","64+dl*8+t(2)" 

2113 DATA “31 RES" , "vde-f AND dl <8 
","2","203","128+d1*8+t(2)" 

2114 DATA "31 SET", "vde-f AND dl <8 
","2","203","192+dl*8+t <2>" 

2117 DATA "63CAL.L" , "1" , "3" , "196+ 
t(l)* 8 ","dl","dh" 

2120 DATA "14IN" , "vde-f AND t(l> = 

*711 11 *9 11 119 jqh n d 1 11 

2121 "DATA "41OUT","vdef AND t(2) 
=7","2","211","dl" 

2122 DATA "17IN","t(1)<>6","2"," 


2123 DATA "710UT","t(2)<>6","2", 
"ed","65+t(2)*8" 

2200 DATA "99","","0" 

5000 IF CODE sf-(j) THEN PRINT #h 
c''"Symbole:: FOR y=VAL "2" TO 
VAL "CODE s$(1)+1": LET h=FN v( 
s$-(y>>: 80 SIJB 9100: PRINT #hc;T 
AB VAL "((y-2)*16+l)";s$(y, TO 6 
>;" ";h$;: NEXT y 
5010 L.ET n~N0T j 

5020 FOR t=ns+3 TO ns+2+u: LET a 
dd=FN v(s$(t>>: LET c=PEEK add: 
LET l*=s*(t)s GO SUB 7600: IF v 
THEN GO TO 5050 

5030 IF NOT n THEN PRINT #hc''"U 
nresolved:" 

5040 LET n=n+ j: LET h=add: GO SU 
B 9100: PRINT #hc;" "; 1 ";h$: 

GO TO 5100 

5050 RESTORE 9920: LET di=FN i(a 
dd+i): LET dl=FN l(di): LET di=V 
AL "di-65536*(di>32767)" 

5055 LET dl=VAL "dl-256*(dl>127) 

fl 

5060 READ IF NOT VAL c 

$ THEN FOR x=j TO VAL READ x 

NEXT x: GO TO 5060 
5070 FOR x=j TO VAL a$: READ v$: 


Ende des Programms 

Symboltabelle 

aufführen 


unaufgel. Tab. prüfen 
vorhanden? 


nein -anzeigen 


Typ bestimmen 


Ausgabe umsetzen 
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POKE FN v(s$(t))+VAL x t+x-j,VAL 
y*: NEXT x 
5100 NEXT t 

5200 IF er+n THEN PRINT #hc'er+n 
;" Error(s)" 

5210 60 TO 9999 
7200 REM unde-fined 
7210 LET u=u+j: IF u>nu THEN LET 
ec=VAL. "98": RETURN 
7220 LET s$(ns+u+j+j)=s$(ns+j+j, 
TO 6)+CHR* FN l(add)+CHR$ FN h( 
add) 

7230 RETURN 
7300 REM print 

7310 IF ec THEN PRINT #hc;h$;" " 
; INVERSE j;"ERROR ";ec; INVERSE 
NOT j;TAB 14;a$: RETURN 
7320 IF lx THEN PRINT #hc;h$;TAB 
VAL "13";FN s*(j) 

7330 IF m$="" THEN RETURN 
7340 PRINT #hc;h$; INVERSE j;"*" 
AND (NOT vde-f); INVERSE 0; TAB 5 
FOR y=0 TO 1+e-j: LET h=PEEK 
(add+y): GO SUB 9120: PRINT #hc; 
h*;: NEXT y 

7350 PRINT #hc;TAB 14;m$;TAB 19; 
FN s$<j+j+lx);"," AND 12;FN s$(3 
+ lx) 

7360 RETURN 
7400 REM check type 
7405 LET x =LEN x$: IF NOT x THEN 
RETURN 

7410 LET ix=(xf(j)="("): IF ix T 
HEN LET x*=x*(2 TO LEN x$~j) 

7415 GO SUB 7500 

7420 RESTORE 9900+jump: READ n: 

FOR x =0 TO n~j: READ c$: IF x$=c 

$ THEN GO TO 7450 

7425 NEXT x 

7430 LET t$(t>=<"3" AND (NOT ix) 

)+("4" AND ix) 

7440 GO SUB 8500: LET di=a+w: LE 
T dh=FN h (di): LET dl=FN 1 (di): 
RETURN 

7450 LET t(t)=x: IF jump AND (NO 
T ix) THEN LET t*(t)="6": RETURN 

7460 LET t*(t)="1111111122222220 


irgendwelche Fehler ? 


Detailzeile anzeigen 


keine Mnemonik eingeg. 


Operanden einstufen 
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70000005515011" (i x * 15+x +i) 

7470 IF x >=13 THEN LET e=j+ix-ju 
mp: LET dd=VAL "dd+(dd=0>*(221+3 
2*(x=14))": LET dis=w: LET x=10 
7475 IF x >7 THEN LET t(t)=x-8 
7480 IF ix AND t*<t)="1" THEN LE 
T t(t)=6 
7490 RETURN 

7500 FOR x=j+j TO LEN x$: IF x$( 
x)="+" OR x*<x>="-" THEN GO TO 7 
550 

7510 NEXT x 

7520 LET w=NOT i: RETURN 
7550 LET z$=x$( TO x-j): LET xf= 
x (x TO ) : GO SUB 8900: LET x$=z 
$ 

7560 LET w—x 
7570 RETURN 


7600 REM -find symbol 
7610 LET v= i 

7620 FOR s=2 TO CODE s$(j)+j: IF 
14-=s:f (s, TO 6) THEN LET a=FN v( 
(s)): RETURN 
7630 NEXT s: LET v=0 
7640 RETURN 
7700 GO TO 9000 


7900 CLS 

II 1 -T II ■ II 

8K " " 

7910 RETURN 


PRINT AT VAL 
MERGE 


WORTEN 


"10",VAL 
"ZXASM/4 


8300 REM Find ap (1) 

8310 RESTORE i: LET x=0 

8320 READ x$: IF x#="99" THEN LE 


T x =0: RETURN 

8330 LET x=x + j: IF THEN RE 

TURN 

8340 FOR y=j TO 1: READ xf-: NEXT 

y 

8350 GO TO 8320 
8400 REM Find ap (2) 

8410 READ x$,c$,y$: LET z=VAL y* 
: IF x*="99" THEN GO TO 8450 
8420 IF x*=n$ THEN LET x=VAL c$: 

IF x THEN LET l=z: RETURN 
8430 FOR y=j TO z: READ x$s NEXT 
Y 

8440 GO TO 8410 

8450 LET x =0: IF NOT z THEN RETU 


Versetzung berechnen 


als 'gefunden' setzen 


nicht gefunden 


Tabellen abtasten 


Rückspr., wenn 
gefunden 

zum nächsten 
Posten 


Tabellen abtasten 


Rückspr., wenn 
gefunden 

zum nächsten 
Posten 
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Adresse bestimmen 


RN 

8460 RESTORE z: GO TO 8410 
8500 REM Convert type 
8505 LET a=0 

8510 GO SUB 8900: IF v THEN LET 
a=x: LET ec=VAL "6*(x>65535 OR x 
<-32768)": RETURN 

8520 IF FN n(x*(j)> AND x$(LEN x 
$)="H" THEN FOR x=j TO LEN xf-j: 

LET a=VAL "a*16+C0DE x$(x>-48-7 
*(x $(x)>""9"")": NEXT x: RETURN 
8530 LET 1$—x$: GO SUB 7600: IF 
v THEN RETURN 

8560 LET ec=VAL "6 *(FN a(xf(l>)= 
0)": IF ec THEN RETURN 
8570 LET s$(ns+2)=x$: LET vde-f=N 
OT j 

8580 RETURN 

8900 REM vet numeric 


8910 LET z — i+VAL "( <x$(1>="" + "") 
OR (x$(l)="") ) AND LEN x*>l" 
8920 FOR n=z TO LEN x$: IF FN n( 
x$(ni ) THEN NEXT n 
8930 LET v=(n>LEN xf): IF v THEN 
LET x=VAL xt( TO n-j) 

8940 RETURN 
9000 REM kybrd 

9010 INF'UT (m$+" ") ; LINE a$: LE 
T end=NOT LEN a* 

9020 FOR x=j TO LEN a*: LET a$(x 

) =CHR* (CODE af- (x ) -32* (a$ (x ) >=" a 

">): NEXT x 

9030 RETURN 

9100 REM h*=hex$(h> 

9110 LET h*=" ": GO TO 9130 

9120 LET h$=" " 

9130 LET h l=h: FOR x=LEN ht- TO j 
STEP -j: LET xl=hl-INT (hl/16)* 
16: LET h*(x)=CHR* (xl+CODE "0"+ 
7*(x1>9)): LET hl=INT (hl/16): N 
EXT x 


9140 RETURN 


9900 DATA 15 
, "L." , "M" , "A" 
,"AF","IX"," 

9901 DATA 15 
PO","PE","P" 


II 


"IX" 


" IY" 


" Ft" 

, "BC" 
IY" 

, "NZ" 
" M " 

i 1 1 ) 


"C","D","E","H" 
, "DE","HL","SP" 

,"Z","NC","C" , " 

II II II II II III II II II II 

, ? nL , , 


prüfen, ob dezimal 


prüfen,ob Hex. 


Symbole abtasten 


Flagge unaufgelöst 


4 Leerräume 
2 Leer räume 


7 


7 
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9920 DATA "(c-INT <c/8)*8)+INT ( 
c /64)=0","1","1","dl+FN 1(a-add- 

H 

9921 DATA "c=ed 0R c=221 GR c= 25 
3","2","2","FN 1 (a+di)","FN h (a+ 
di ) " 

9922 DATA "1","2","1","FN 1(a+di 
)","FN h(a+di)" 


1002 REM ZXASM 48K extension 

1010 LET ns=64: LET nu=64 Tabellen erhöhen 

1015 CLS : PRINT " ««■aggHB 


u n'i R 


ver-fuegbar: "; (PEEK 

;."K.RAMTOP : ";: 

3730): GO SUB 9100: 


PRINT '"RAM 
23733-63)/4 
LET h=FN i(2 
PRINT h;" (" 


;h$;"H)" 

1120 LET m*="Prue-fen?": GO SUB 9 
000: LET auto=(CHR* CODE a$="J") 
: IF auto THEN LET m*="HINZULADE 
N?": GO SUB 9000: IF CHR$ CODE a 
$="J" THEN INPUT "Programmname?: 
"; LINE a$: CLS : PRINT AT 8,2;" 


REKORDER 


Autoscan zulassen 


": PAUSE 4e4: CLS : MERGE a$ 

1125 IF auto THEN GO SUB 7800 

7700 IF N01 auto THEN GO TO 9000auf nächste Zeileabt 

7710 LET end=0: IF FN i(auto~l>= 

10730 THEN LET end=l: RETURN 


7720 LET a*="" 

7730 IF PEEK auto=13 THEN GO TO 


7760 

7735 IF PEEK auto=33 THEN LET au 
to=auto+l: GO TO 7770 
7740 LET a$»a$+CHR$ PEEK auto 
7750 LET auto=auto+l: GO TO 7730 


7760 LET auto=auto +6 

7770 IF NOT LEN a* THEN GO TO 77 


10 

7780 GO TO 9020 

7800 REM Auto start nach erst. Zeile abt 

7810 PRINT AT 10,10;"Suche..." 

7820 LET :<=FN i (23635) : LET y=FN 
i (23627) 

7830 IF x >=y THEN LET auto=0: RE 
TURN 
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7840 IF F’EEK <:<+4)=234 THEN BO T 
0 7860 

7850 LET ;<=;•:+4+FN i (:<+2) : GO TO 
7830 

7860 IF F'EEK (:<+5K>40 THEN GO T 
0 7850 

7870 LET auto=x+6 
7880 RETURN 

7900 REM This allows reruns 


ZXDISASM - 

Symbolischer Disassemblierer 

Sie wollen also einen heimlichen Blick in das Sinclair-ROM wer¬ 
fen? Mit diesem Disassembler können Sie jedes Maschinencode- 
Programm in seine mnemotechnische Form zurückverwandeln. 
Aber das ist noch nicht alles - Sie können damitauch eine Tabelle 
von Namen (oder Symbolen) belegen, so daß jedesmal, wenn 
ein Sprung-, Aufruf- oder Datenbezugnahmebefehl vorkommt, 
der entsprechende Symbolname dafür eingesetzt wird. Da¬ 
durch läßt sich Ihr Disassembler-Listing viel leichter lesen. Sie 
brauchen im Kapitel ‘Systemvariable' des Sinclair-Handbuchs 
nicht mehr herumzublättern! 

Wenn Sie die Absicht haben, selbst Assemblerprogramme zu 
schreiben und dazu den Assemblierer in diesem Buch verwen¬ 
den, wird die Symboltabellen-Einrichtung dieses Programms Ih¬ 
nen dabei eine große Hilfe sein. 

Das Programm läuft in einem normalen 16K-Spectrum, aller¬ 
dings muß die Symboltabelle ein wenig verkleinert werden. In 
der Praxis wäre es klug, die Befehle und alle REM-Anweisungen 
bei einem 16K-Gerät wegzulassen, damit für Symbole und Ihre 
Routinen über RAMTOP möglichst viel Platz ist. 

Zusätzlich finden Sie im Anschluß an diesen Abschnitt ein Ma¬ 
schinencode-Überwachungsprogramm. Damit können Sie sich 
den Speicher ansehen, Bytes verändern und über das Keyboard 
kleine Routinen in Hex eingeben. Diese beiden Programme sind 
so angelegt, daß sie mit dem MERGE-Befehl gemischt werden 
können, so daß Leute, die mehr als 16K haben, die Programme 
zu einem leistungsfähigen Debugginginstrument vereinigen kön¬ 
nen. Wenn Sie nur 16K RAM haben, müssen Sie die beiden Pro¬ 
gramme getrennt halten, aber nützlich bleibt das trotzdem. Der 
Umstieg von einer Aufgabe zur anderen geht nur etwas langsa¬ 
mer. 

ZXDISASM in Betrieb 

Laden Sie das Programm mit LOAD '‘ZXDISASM". Wenn es ge¬ 
laden ist, sehen Sie die Frage: 

Hard copy? 
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Wenn Sie ‘ja’ antworten, werden alle Ausgaben an den Drucker 
geschickt, sonst erscheinen sie auf dem Bildschirm. (Sie können 
die Ergebnisse trotzdem drucken lassen, wenn Sie die Frage 
‘SCROLL?’ jedesmal mit COPY beantworten.) 

Die Antwort 'nein’ oder Druck auf‘ENTER’ schickt alle Ausga¬ 
ben an den Fernsehbildschirm. 

Als nächstes werden Sie gefragt: 

Enter s/mbol names? (S/mbolnamen eingeben?) 

Wenn Sie mit ‘nein’ antworten oder 'ENTER' drücken, wird die 
Disassemblierung durch Eingabe der Startadresse fortgesetzt. 
Siehe unten. 

Die Antwort ‘ja’ bietet Ihnen die Wahl, Ihre S/mbolnamen auf 
zweierlei verschiedene Art einzugeben: 

Load Symbols from tape? (Symbole von Tabelle laden?) 
Die Antwort ‘ja’ zwingt ZXDISASM, den Namen der Banddatei 
zu verlangen, zu warten, bis Sie das Band laufen lassen, und die 
entsprechende Symboltabelle hineinzumischen. 

Wenn Sie ‘nein’ antworten, fordert ZXDISASM Sie auf, die Na¬ 
men der Symbole überdas Keyboard einzugeben. Nach Eingabe 
eines Symbolnamens werden Sie aufgefordert, die entsprechen¬ 
de Adresse des Symbols einzugeben. Adressen können einge¬ 
geben werden als Dezimalzahl oder als Hexzahl (mit angehäng¬ 
tem ’H' - Beispiele: 1234H, 1AE3H). Das setzt sich fort, bis Sie 
nach der Anforderung eines Symbolnamens ‘ENTER’ drücken. 
Dann werden Sie gefragt: 

Save symbols on tape? (Symbole auf Band sichern?) 
Wenn Sie ‘ja’ antworten, erhalten Sie die Aufforderung, den 
Bandnamen einzugeben, den ZXDISASM verwenden soll, dann 
wird die Tabelle gesichert. Anschließend wird die Disassemblie¬ 
rungfortgesetzt. Die gesicherte Tabelle kann später mit der Ant¬ 
wort ‘ja’ auf die vorherige Frage in ZXDISASM geladen werden. 
Wenn Sie den Assemblierer verwenden, können Sie außerdem 
die Symboltabelle verwenden, die von diesem Programm ausge¬ 
geben wird - siehe den Abschnitt ’ZXASM - ein symbolischer 
Assemblierer’. 

In diesem Stadium wird die Symboltabelle in Adressenfolge sor¬ 
tiert. Das erlaubt schnelleren Zugang zu den entsprechenden 
Namen. 
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Schließlich muß ZXDISASM wissen, wo im Speicher Sie mit der 
Disassemblierung beginnen wollen. Die Frage lautet: 

Enter Start adress: 

Wenn Sie nur ‘ENTER’ drücken, schließt ZXDISASM ab. Im an¬ 
deren Fall ist eine der folgenden Eingaben möglich: 

a) Eine Dezimalzahl. 

b) Eine Hexzahl mit angehängtem ‘H’ (etwa 22FFH oder 
5DH). Beachten Sie, daß die erste Ziffer eine Zahl sein 
muß, etwa 0FF5AH. 

c) Ein Symbolname. In diesem Fall wird die entsprechende 
Adresse verwendet. 

ZXDISASM Listing 

Geben Sie das Programm so ein, wie es unten aufgeführt ist, und 
sichern Sie es mit dem Namen “ZXDISASM". 

Wenn Sie mehr als 16K RAM haben, sollten Sie Zeile 10 abän¬ 
dern, um die Höchstgröße der zugelassenen Symboltabelle zu 
ändern. Die Normalgröße beträgt 20, und Sie sollten das auf 64 
erhöhen. 

Wenn Sie nur 16K haben, geben Sie die Zeilen 7100-7180 nicht 
ein (die Befehle) und lassen Sie auch die Zeilen weg, die nur 
REM-Anweisungen enthalten. Das Programm paßt auch dann 
hinein, wenn Sie die Befehle und REM-Anweisungen belassen, 
aber der über RAMTOP verfügbare Platz für große Programme 
in Maschinencode verringert sich. 

1 REM Spectrum Disassembler 

2 REM ©1982 F'hipps Associates 
10 LET ns=10: DIM s*(ns+1,8>: 

LET s#(l)=CHRf- 0 

20 GO TO 7500 prüfen,ob ZXMCMON gemischt 

30 DEF FN s (x )=CODE s$<x,7)+25 
&*CODE s$(x,8) 

100 GO SUB 7000 

110 LET a$="ENTER zur Fortsetzu 
nq": GO SUB 9000 
120 IF CODE s*(l) TUEN GO TO 20 

0 

130 LET a$="Eingabe der Symbole 
? (J/N)": GO SUB 9000: IF FN vO 
TFIEN GO SUB 7200: GO SUB 8300 


Anweisungen 


übergehen, wenn 
Symbole geladen 
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200 LET a$="Hard copv (J/N)?": 
GO SUB 9000: LET hc=VÄL "2"+FN y 
() 

210 CLS 

300 IF LEN INKEY* TUEN GO TO 30 

0 

305 LET a$="Startaddresse einge 
ben:": GO SUB 9000: IF end THEN 
GO TO 20 

310 GO SUB 8500: IF a<0 THEN GO 
TO 305 

320 IF LEN INKEY* THEN GO TO 32 

0 

340 FOR x=2 TO CODE s*(l)+l: LE 
T xa=FN s(x): IF a>xa THEN NEXT 
;<: LET xa=10e30 
350 LET xs=x 
400 REM main Loop 
405 GO SUB 8000 

410 IF LEN INKEY* THEN GO TO 30 

0 

415 IF a>=xa THEN PRINT #hc;TAB 
13;s*(xs, TO 6 );":": LET xs=xs+ 
1: LET xa=le31: IF xs<=CODE s*(1 
>+l THEN LET xa=FN s(xs): GO TO 
415 

420 LET c=PEEK a: IF c=DD OR c= 
FD THEN GO SUB 8100 
425 LET p*= ,1 BCDE"+e*+"AF": LET 
q$="BCDE"+e*+"SP": LET r*="BCDEH 
LMA" 

430 IF c=CB THEN GO SUB 5000: G 
0 TO 500 

440 IF c=ED THEN GO SUB 6000: G 
0 TO 500 
450 GO SUB 8200 
460 GO SUB 1000+g*1000 
500 REM print 

510 LET h=a: GO SUB 9100: PRINT 
#hc;h*;" 

520'FOR n=l TO 1: LET h=PEEK (a 
+n-l): GO SUB 9120: PRINT #hc;h* 
;: NEXT n 

530 PRINT #hc;TAB 14;j*;TAB 19; 
k*;"," AND 1 *•<>""; 1 *; "0" AND n*< 
>" ";n* 


keine Taste gedrückt? 


in Adresse umwandel n 
keine Taste gedrückt? 
Negativschrift nehmen 
findet Symbolanfang 


Vorgaben neu setzen 
prüf.,ob Halt erforderl. 

notfalls Etikett 
anzeigen 


Opcode holen — 
prüfen auf IX/lY 

Regist er namen 
setzen 


Bit-Codes 


erweitertes Codes 


Opcode teilen 

zu relevant. Abschnitt 
gehen 

Adresse anzeigen 
Hex. anzeigen 


Opcode anzeigen 
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900 LET a=a+l 
910 GO TO 400 
1000 REM group 00 
1010 GO TO VAL "1020110012001300 
1400140016001700"(12*4+1 TO 12*4 
+4) 

1020 LET i=9900: GO SUB 7300: IF 
11< 2 THEN RETURN 
1050 LET 1=1+1; LET h=a+2+FN p(a 
+1): GO BUB 9100: GO SUB 8450: L 
ET nsr=h* 

1060 RETURN 

1100 IF t3 THEN LET j$="ADD": LE 
T k-$=e$: LET 1$=FN p*(q$): RETUR 
N 

1120 LET jt="LD": LET k$=FN p*<q 
$■)-. LET h=a+l+e: GO SUB 8400: LE 
T l*=h*: RETURN 

1200 LET i=9905: GO SUB 7300: IF 
1.1 < 4 THEN RETURN 
1220 LET h=a+l+e: GO SUB 8400 
1230 IF t3 THEN LET 1*=VAL$ 1*: 
RETURN 

1240 LET k*=VAL* kt- 
1250 RETURN 

1300 LET j$=("DEC" AND t3)+("INC 
" AND (NOT t3> ) : LET k$=FN p$(q* 
): RETURN 

1400 LET j$=("DEC" AND t2=5)+("I 
NC" AND t2=4) 

1420 LET kf=FN rf(tl): LET l=l+e 
1430 RETURN 

1600 LET j$="LD": LET k$=FN r*(t 

1 ): LET h=a+l+e*2: GO SUB 8600: 

LET 1=1+e: LET l$=h$: RETURN 

1700 LET i=9910: GO SUB 7300 

1710 RETURN 

2000 RLM group 01 

2010 IF t1=6 AND t2=6 THEN LET j 

*="HALT"; RETURN 

2020 LET jt="LD" 

2030 LET k$=FN r$(tl): LET 1T=FN 
r-f(t2) 

2040 LET 1=1+e 

2050 RETURN 

3000 REM group 10 

3010 LET k$=FN rf(t2): LET 1=1+e 


Adresse aktualisieren 
nächster Befehl 
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3100 LET i=9915: GO SUB 7300 
3105 IF 11< 4 AND tl<>2 TUEN LET 
l$=k$: LET k$="A" 

3110 RETURN 

4000 REM qroup 11 

4010 GO TO 4100+t2*100 

4020 LET j$="??" s RETURN 

4100 LET j$="RET": GO SUB 7400: 

RETURN 

4200 IF t3 TUEN LET i=9920: GO S 
UB 7300: RETURN 

4210 LET j$="POP": LET k$=FN p*< 
p*>: RETURN 

4300 LET GO SUB 7400: L 

ET h=a+1: GO SUB 8400: LET l*=h$ 
: RETURN 

4400 IF NOT tl TUEN LET h=a+l: G 
0 SUB 8400 

4410 IF t1=2 OR t1=3 TUEN LET h= 
F'EEK (a+l): GO SUB 9120: LET 1=1 
+ 1 

4420 LET i=9925: GO SUB 7300: RE 
TURN 

4500 LET j$="CALL": GO SUB 7400: 

LET h=a+1: GO SUB 8400: LET 1$= 
h$: RETURN 

4600 IF NOT t.3 THEN LET j$="PUSH 
": LET k$=FN p*(p$>: RETURN 
4610 IF tlOl THEN GO TO 4020 
4620 LET j4'= "CALL": LET h=a+l: G 
0 SUB 8400: LET k$=h$: RETURN 
4700 LET h=PEEK (a+l): GO SUB 91 
20: LET k*=h$: LET 1=1+1: GO TO 
3100 

4800 LET j#-="RST": LET h=tl*8: G 
0 SUB 9120: LET k*=h* 

4810 RETURN 
5000 REM CB qroup 

5010 LET l=l + l+e: LET’ c=PEEK (a+ 

l+e*2>: GO SUB 8200 

5100 IF NOT g THEN LET i=9930: G 

0 SUB 7300: LET k$=FN r$(t2): RE 

TURN 

5110 LET jf-="BITRESSET" ( (g~l)*3+ 
1 TO (q—1)*3+3) 

5120 LET k#-=CHR* (tl+CODE "0") 
5130 LET 1T=FN rt(t2> 
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5140 RETURN 

6000 REM ED group 

6010 LET 1=1+1: LET c=PEEK (a+1) 

: GO SUB 8200 

6020 IF g=2 THEN GO TO 6300 
6030 IF gOl THEN LET j$="??": R 
ETURN 

6040 GO TO VAL "6050606060706100 
6200621062206230"<t2*4+l TO t2*4 
+4) 

6050 LET j$="IN": LET 1$="<C)": 

LET k$=FN r$(tl): RETURN 

6060 LET j$="OUT": LET kf="(C)": 

LET 1*=FN r$(tl): RETURN 
6070 LET j$=("ADC" AND t3)+("SBC 
" AND (NOT t3)>: LET k$=et-: LET 
1$=FN p$ (q$): RETURN 
6100 LET j$="LD": LET h=a+2: GO 
SUB 8400: LET h*="("+h$+")" 

6120 LET kf=FN p*(q$>: LET l$=h$ 

6130 IF NOT t3 THEN LET l$=k$: L 
ET k$=h$ 

6140 RETURN 

6200 LET j$="NEG": RETURN 

6210 LET i:f=("RETI" AND tl) + ("RE 

TN" AND (NOT tl>>: RETURN 

6220 LET j*="IM": LET k$=CHR$ (t 

1+CODE "0"): RETURN 

6230 LET i=9935: GO SUB 7300 

6240 RETURN 

6300 RESTORE 9940+t2*10 

6310 FOR x = l TO 11-3: READ j$: N 

EXT x 

6320 RETURN 

7000 REM initialise 

7005 DEF FN r$(;<) = (r$(x + l) AND r def. Funktionen 
*<x + l><>"M"> + (FN i t- (a+l+e) AND r 
$<x+l)="M") 

7010 DEF FN p(x)=PEEK :<-(256*(PE 
EK x>127)) 

7015 DEF FN b$ (x>=("+" AND FN p< 
x ) >=0) +STRT- FN p(x> 

7020 DEF FN i *• (x ) =" ( "+e$+ (FN b$ ( 
x) AND e)+")" 

7025 DEF FN p$ (x$> =x$ (rp*2+l TO 
rp*2+2> 

7030 DEF FN y()=CHR$ CODE a$="J" 


148 


0" AND 


7035 DEF FN n (xt> = (xt>= " 
$<="9") 


x 


7040 LET pt="BCDEHLAF": LEI qt=" 
BCDEHLSP": LET r t="BCDEHLMA" 

7045 LET DD=VAL "221": LET FD=VA 


L "253" 


7050 LET ED=VAL "237": LET CB=VA 


L * 1 O 11 


7070 LET ramtop = 1+PEEK 23730+256 
*PEEK 23731 


7100 REN instructions 

7110 CL.S : PRINT " Ej^MMMJ^IE g aa a M 


nv D i 




7120 PRINT '"Version 2.2 27. Aug 
ust 1982" 


7130 PRINT '"Alle Werte werden i 
n Hexadezimalangezeigt, ausser S 
onderzeichen,die in dezimal darg 
estellt wer- (den (z.B. JR +19 ad 
er LD (IY-8),FF)." 

7140 PRINT '"Die Eingabe kann in 
""hex"" (z.B. 43a2h) oder ""dez 

imal"" oder in einem System va 
riabler Bezeich- nunqen eingegeb 
en werden: so wieRANTOP." 

7190 RETURN 

7200 REN enter symbol table 
7210 LET a$="Laden der Symbol vo 
n Band?": SO SUB 9000: IF FN y() 
THEN LET at="Name:": GO SUB 900 
0: LOAD at DATA st-() : RETURN 
7220 FOR s=2 TO ns+1 
7230 LET at="Symbolnamen Eingebe 
n:": GO SUB 9000: IF end THEN LE 
T s=s-2: GO TO 7280 
7240 LET st(s, TO 6)=at 
7250 LET at="Adresse Eingeben:": 

GO SUB 9000: IF end THEN GO TO 
7250 

7255 GO SUB 8500: IF a<0 THEN GO 
TO 7250 

7260 LET st(s,7 TO )=CHRt (a-INT 
(a/256)*256)+CHRt (INT (a/256)) 


Register namen 
Spezial-Opcodes 


derzeitiger RAMTOP 


von Keyboard laden 


7270 PRINT st(s, TO 6 ),a 
7275 NEXT s: LET s=ns 
7280 LET st(l)=CHRt s 
7290 LET at="Spei ehern der 
le aut Band?": GO SUB 9000 


Bestätigung anzeigen 


Zählung beibehalten 

Symbo 
IF F 
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60 SU 


N y() THEN LET at="Name:": 

B 9000: SAVE at DATA st() 

7295 RETLJRN 

7300 REM create Operand 
7310 RESTORE i: READ n 
7320 FOR ;< — 1 TO tl + 1 
7330 READ jt: IF n=3 THEN READ k 
t, 1 t 

7340 NEXT x 
7390 RETURN 


7400 REM condition codes verw.bei jp/jr/call/ret 

7410 RESTORE 9980: FOR x=l TO tl 
+1: READ kt: NEXT x 
7420 RETURN 


7500 REM Machine Monitor 


7501 GO TO 100: REM not present 
8000 REM Reset defaults 


ZKMCMON-Schnitt stelle 


8010 LET et="HL" 

8020 LET e=0: LET 1=1 
8030 LET J$="": LET Kt="' 
t="": LET ht="": LET nt= M " 
8040 RETURN 
8100 REM DD/FD opcrode 
8110 LET et=("IX" AND c=DD>+< 
" AND c=FD> 


geänd. durch IX/l-Codes 
LET 1 


Indexregister-Codes 
IY 


8120 LET e=l: LET 1=1+1 
8130 LET c=PEEK (a+1) 

8140 RETURN 

8200 REM Split opcode Gruppencode etc. bestimmen 

8210 LET q=INT (c/64): LET tl=IN 
T (c/8) —q*8: LET t2=c-t l*8--g*64 
8220 LET rp = INT (tl/2): LET t3= ( 
rp*2< >t1) 

8230 RETURN 


8300 REM Sort svmbols 
8310 PRINT AT 21,0;"Sortiere..." 
8320 FOR x=2 TO CODE st(l>+l: LE 
T z=l: FOR y=2 TO CODE st(l)-x+2 
8330 IF FN s(y)>FN s(y+l) THEN L 
ET xt=st(y): LET st(y)=s$(y+1): 
LET st(y+l)=xt: LET z=0 
8340 NEXT y: IF z THEN RETURN 
8350 NEXT x 
8360 RETURN 


8400 REM Get address in ht 
8410 LET h=F'EEK h+256*PEEK 
: GO SIJB 9100 
8420 LET 1=1+2 


16 Bit-Daten holen 

(h + 1) 
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8450 IF NOT CODE sf ( 1 ) THEN RETU Symboltabelle prüfen 
RN 

8460 FOR x=2 TO CODE sf(l)+l 

8470 IF h >FN s(x) THEN NEXT :< : R über Adresse hinaus? 
ETURN 

8480 IF h=FN s(x) THEN LET hf=sf Symbolnamen holen 
(x, TO 6) 

8490 RETURN 

8500 REM Convert af to address 
8510 IF af(LEN af)="H" AND FN n( ist esHe X ? 
af(l)) THEN LET a=0: FOR x=l TO 
LEN af-1: LET a=a*16+C0DE af(x)- 
CODE "0"—7* (af (x ) >"9") : NEXT x: 

RETURN 

8520 FOR x=2 TO CODE sf(l)+l: IF ist es ein Symbol? 

a$=s$(x, TO LEN af *(LEN af<7)) 

THEN LET a=CODE st- (x , 7) +256*C0DE 
sf(x,8): RETURN 
8530 NEXT x 

8540 LET a=-l: FOR x —1 TO LEN afalsdezimal behandeln 
: IF FN n(a$(x)) THEN NEXT x: LE 
T a=VAL af 
8550 RETURN 

8600 REM Byte value 8 Bit-Daten holen 

8610 LET h-PEEK h: GO SUB 9120: 

LET 1=1+1 

8620 RETURN 

9000 REM line input 

9010 INPUT (af+" "); LINE af: LE 

T end=NOT LEN af 

9020 FOR x = 1 TO LEN af: LET af (x 

)=CHRf (CODE a$(x)-32*(a$(;<)>="a 

")): NEXT x 

9030 RETURN 

9100 REM hf=hexf(h) 

9110 LET hf=" GO TO 9130 

9120 LET hf=" ": REM byte anly 
9130 LET hl=h: FOR x=LEN hf TO 1 
STEP -1: LET xl=hl-INT (hl/16)* 

16: LET hf(x)=CHRf (x1+48+7*(x1> 

9)): LET hl=INT (hl/16): NEXT x 
9140 RETURN 

9900 DATA 3,"NOP","","","EX","AF 
","AF","DJNZ“,FN bf(a+1),"","JR" 

,FN Bf(a+1),"","JR","NZ",FN Bf(a 
+1),"JR","Z",FN Bf(a+1),"JR","NC 
",FN Bf- (a+1) , " JR" , "C" , FN Bf (a+1) 

9905 DATA 3,"LD","(BC)","A","LD" 
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,"A","(BC)","LD","(DE)","A","LD" 

,"A","(DE)","LD","""(""+H$+"")"" 
","HL","LD","HL","""(""+Hf+"")"" 
" "LD","""(""+h$+"")""","A","LD" 

ii ß ii ii ii ii ^ ii ii ii ii y ii ii ii 

9910’DATA 1,"RLCA","RRCA","RLA", 
"RRA","DAA","CPL","SCF","CCF" 
9915 DATA 1,"ADD","ADC","SÜB","S 
BC","AND","XOR","ÖR","CP" 

9920 DATA 3"RET","", 

ii ii ii^o*i h ii ii ii ii CT Y Y 11 il II ui» ii OD H “ 

1 ** * 1 9 9 *— A A «| i| * • ■) 

ii ii ii ii jpi ii ii ^ ii ii y *« ii ii «i / 7'^> ii i* «i 

"","LD","SP",E$ 

9925 DATA 3,"JP",H$," 
","OUT","("+H$+")","A","IN","A", 
"("+HS+">","EX",E*,"(SP)","EX"," 

■ f ii ai ■ ■ t i ii r »** ■ t ii itii ifi* 


DE" ,Et-, "DI" , , " " , "EI" , , " " 

9930 DATA 1 , " RL.C " , " RRC " , " RL " , " RR 
","SLA","SRA","??","SRL" 

9935 DATA 3,"LD","I","A","LD","R 
","A","LD","A","I","LD","A","R", 
"RRD","","","RLD"," 

9940 DATA "LDI","LDD","LDIR","LD 
DR" 


9950 DATA "CPI","CPD","CPIR","CP 
DR" 

9960 DATA "INI","IND","INIR","IN 
DR" 

9970 DATA "OUTI","OUTD","OTIR"," 
OTDR " 

9980 DATA "NZ","Z","NC","C","PO" 

, "F'E" , "P" , "M" 

9999 STOP 
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ZXCMON - Maschinencode- 
Überwachungsprogramm 

Wie im vorigen Abschnitt versprochen, hier ein Maschinen¬ 
code-Überwachungsprogramm (Monitor) für den Spectrum. 
Damit können Sie Speicherbereiche in Hex anzeigen, einzelne 
Bytes anzeigen und über das Keyboard kleine Maschinencode- 
Routinen in Hex eingeben. 

Wenn Sie die Absicht haben, Maschinencode-Programmierung 
in großem Maßstab zu betreiben, wäre es offenkundig klüger, 
den Assemblierer zu verwenden - das geht viel einfacher! Bei 
bestimmten Gelegenheiten ergibt es jedoch mehr Sinn, einfach 
ein paar Befehle über das Keyboard 'einzutippen’, während Sie 
etwas testen. 

Das Programm soll voll und ganz in Übereinstimmung mit dem 
Disassemblierer verwendet werden. Alle Zeilennummern sind 
so erarbeitet, daß das kombinierte Programm ein kombiniertes 
Bildschirmmenü einschließt, außerdem kann jedes Programm 
das Vorhandensein des anderen prüfen. Aus diesem Grund 
empfiehlt sich, keine der Zeilennummern im Programm zu än¬ 
dern, weil die Kombination sonst nicht richtig funktioniert. 


ZXMCMON in Betrieb 

Wenn das Programm läuft, wird Ihnen ein Menü mit folgenden 
Möglichkeiten geboten: 

(1) Speicher anzeigen 

(2) Speicher ändern 

(3) Maschinencode in Hex eingeben 

(4) Speicher disassemblieren 

Die letze Option erscheint nur, wenn das Programm mit 
ZXDISASM kombiniert worden ist. 

Sie geben die entsprechende Nummer ein und drücken 
‘ENTER’. 

Wenn keine Nummer eingegeben wird, schließt ZXMCMON 
ab. 

Die Wahlmöglichkeiten der Reihe nach: 
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1. Speicher anzeigen 

Sie sind aufgefordert, eine Adresse einzugeben, die in Dezimal 
oder Hex sein kann (die üblichen Regeln - der Zahl ein 'H' anfü¬ 
gen). Wenn keine Adresse eingegeben wird, erscheint noch ein¬ 
mal das Hauptmenü. Der Speicher wird in Hex-Bytepaaren an¬ 
gezeigt, pro Zeile acht Bytes mit der Adresse des ersten Bytes 
am Zeilenanfang. Das setzt sich fort, bis Sie irgendeine Taste 
drücken. ZXMCMON fordert dann eine neue Adresse an. Eine 
Druckerkopie erhält man mit dem Befehl COPY, mit CONT 
geht es weiter. 

2. Speicher ändern 

Anfangs werden Sie aufgefordert, die Startadresse einzugeben. 
Wird keine eingegeben, erscheint das Hauptmenü. Sonst zeigt 
ZXMCMON die laufende Adresse und den Inhalt des Bytes an 
dieser Adresse. Beispiel: 

7FD8 21- 

Das heißt, die Adresse 7FD8 (hex) enthält den Wert 21 (hex). 
Sie haben jetzt drei Möglichkeiten. Wenn Sie ein Hexzahlenpaar 
eingeben und ‘ENTER’drücken, ersetzt dieser Wert den vorher 
gezeigten. Dann wird der Wert in der nächsten Adresse gezeigt. 
Wenn Sie nur‘ENTER’drücken, bleibt der Wert unberührt, und 
der Wert der nächsten Adresse erscheint. Geben Sie aber einen 
Punkt ein, so fordert ZXMCMON zur Eingabe einer neuen 
Adresse auf. Hier ein Beispiel: 

3 Enter Start adress: 32600 


7FD8 00- 
7FD9 21-0C 
7FDA FF-FE 
7FDB FF-. 


(das belassen) 

(21 zu 0C verändert) 
(FF zu FE verändert) 
(neue Adresse anford.) 


Enter start address: (etc., etc....) 

3. Eingabe Hex-Maschinencode 

Wie vorher schon erwähnt, ist das lediglich ein ‘Notbehelf, da¬ 
mit während dem Testen von Routinen kleine Veränderungen 
vorgenommen werden können. Dann werden Sie aufgefordert, 
eine Startadresse einzugeben, wird ‘ENTER’ allein gedrückt, er¬ 
halten Sie wieder das Hauptmenü. Sonst kann die Adresse (wie 
oben) in Dezimal oder Hex sein. Als nächstes können Sie einen 
String von Hexzeichenpaaren eingeben. Sie werden in Binärzah¬ 
len umgewandelt und an der gewünschten Adresse eingefügt. 
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Das Display zeigt die laufende Adresse. Nachdem dieser umge¬ 
wandelt und eingegeben ist, verlangt ZXMCMON einen weite¬ 
ren String. Das setzt sich fort, bis Sie nur 'ENTER' drücken. Der 
String, den Sie eingeben, kann jede beliebige Länge haben 
(beachten Sie aber, daß alle entdeckten Fehler dazu führen, daß 
der Rest des Strings nicht beachtet wird, also Vorsicht!). Fehler 
können hervorgerufen werden durch a) eine ungerade Zahl ein¬ 
gegebener Zeichen - Sie müssen Hexzeichen-Paare eingeben 
- dann bleibt der ganze String unbeachtet, und b) ein unzulässi¬ 
ges Hexpaar (beispielsweise ist9G nicht Hex), worauf der Rest 
des Strings unbeachtet bleibt. Behalten Sie die Adresse im Auge. 

4. Speicher disassemblieren 
Im vorigen Abschnitt ist diese Möglichkeit ausführlich bespro¬ 
chen worden. Wenn ZXDISASM abschließt, springt das Pro¬ 
gramm automatisch zurück zum Maschinencode-Monitor- 
Menü. 


ZXMCMON Listing 

Hier gibt es nicht mehr viel zu sagen, außer, daß Leute, die dieses 
Programm mit dem Disassemblierer kombinieren wollen, 
zuerst den Disassembler (ZXDISASM) laden sollten, um dann 
mit MERGE “ZXMCMON" hineinzumischen und die Kombina¬ 
tion auf einem eigenen Band zu sichern. Wegen dieser Eigen¬ 
schaft sehen manche Befehle im Programm listing vielleicht ein 
wenig merkwürdig aus, aber keine Sorge, das fügt sich alles zu¬ 
sammen. 


7500 REM Machine Code Monitor 

7501 REM ©1982 Phipps Associates 

7505 LET e$="": GO SUB 8000: LET Prüfung auf ZXDISASM 
d= (LEN ef-OO) 

7510 LET ramtop=F'EEK 23730+25£>*P Ramtop-Wert setzen 
EEK 23731+1: IF NOT d THEN LET s 
$=CHR$ 0 


Ho n i t o r 


7520 CLS : PRINT TAB 10; "[ 

■a t JJHJ . (1) Ausdruck 'HEX' au 

f Display"'" (2) Eingabe Masch.- 

Code 'HEX. (3) Aenderungen" 

7530 IF d THEN PRINT " (4) Disas 


semblieren 
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7540 PRINT .ENTER' allein bee 

ndet das Programm" 

7550 LET a*="Einqabe der Wahl:": 

Gü SUB 9000: IF end THEN GO TO 
9999 

7560 IF VAL a*<1 OR VAL a*>3+d T 
HEN GO TO 7550 

7570 CLS : GO TO VAL "7600770078 zu Routine springen 
000100"((VAL a*-l)*4+l TO (VAL a 
$-1)*4+4) 

7600 REM BHHJiiMHilMÜJ 

7610 IF LEN INKEY* THEN GO TO 76 


10 

7620 GO SUB 8700: IF end THEN GO 
TO 7500 

7630 FOR a=a TO a+65535 STEP 8: 

LET h=a; GO SUB 9100: PRINT h*; " 

« . 

J 


7640 FOR b=a TO a+7: LET h=PEEK 
b: GO SUB 9120: PRINT h*; " N 

EXT b 

7650 PRINT : IF LEN INKEY* THEN 
GO TO 7600 


7660 NEXT a: GO TO 7500 
7700 REM 


Enter wach in 


7705 IF LEN INKEY* THEN GO TO 77 


05 


ein Leer raum 


8 Bytes je Reihe 


auf Tastendruck achten 


klären, ob keine Taste 
gedrückt ist 


7710 GO SUB 8700: IF end THEN GO Adresse holen 
TO 7500 


7715 PRINT AT 10,0;"Adresse: "; a 
;" LET h=a: Gü SUB 9100: PR 

INT h*;">" 

7720 LET a*="Eingabe in Hex:": G Hexstring holen 
0 SUB 9000: IF end THEN GG TO 75 
00 

7725 PRINT AT 21,0, , Fehlerzeile löschen 

7730 IF LEN a*OINT (LEN a*/2>*2 
THEN PRINT AT 21,0: FLASH 1;"UN 
GUELTIGE LAENGE"; FLASH 0;"-wied 
erholen": Gü TO 7720 

7735 FOR x = l TO LEN a$ — 1 STEP 2: in Binär umwandeln 
GO SUB 7900 

7740 IF x1*16+x2>255 THEN PRINT 
AT 21,0; FLASH 1;"EINGABE FEHLER 
FLASH 0;"-wiederholen": GO TO 
7715 

7745 POKE a,:<l*16+:<2 
7750 LET a=a+l 


156 


Code in RAM setzen 
nächste Adresse 






7755 NEXT x 
7760 GO TO 7715 
7800 REM 




neuen String abwarten 


7810 IF LEN INKEYS THEN GO TO 78 W arten.ob kein 


10 


Tastendruck 


7820 GO SUB 8700: IF end THEN GO Ad resse holen 
TO 7500 

7830 LET h=a: GO SUB 9100: LET s< 

S=h$: LET h=PEEK a: GO SUB 9120 
7840 LET a$=x$+" "+hS+"--": GO SU 
B 9000: IF end THEN GO TO 7880 
7850 IF a$=". " THEN GO TO 7800 prüfen,ob fertig 
78oO IF LEN aS.. I '2 THEN LET aS—aS (Eingabestring prüfen 
TO 2) 

7870 LET :< = 1: GO SUB 7900: F'OKE neuen Wert einfügen 


a,xl*16+x2 

7880 PRINT }<$;“ " ; ,, ~ n ; a* 

7890 LET = Rh Th 7830 

7900 REN 


Bestätigung anzeigen 
achste Adresse 



7910 LET xl=CODE a$(x)-CODE "0"- 
7* (a$ (j< ) y "9 11 ) 

7920 LET x2=C0DE aS(x+1)-CODE "0 
"-7*(a$ (x + 1)>"9") 

7930 RETURN 

8090 RETURN : REM no di sassembl eprüfung auf zxdisasm 
r present 

85lÖ IF a$(LEN aS)="H" THEN LET 
a=0: FOR ;< = 1 TO LEN a*-l: LET a= 
a*16+C0DE a$ (:< ) —CODE "0"-7*<a$<x 
) >"9" ) : NEXT :< : RETURN 
8520 FOR x=2 TO CODE sS(l)+l: IF 
aS=s$(x, TO LEN aS*(LEN at<7)> 

THEN LET a=CODE sS(x,7)+256*C0DE 
s$ (x,8): RETURN 
8530 NEXT x 
8540 LET a=OAL a$ 

8550 RETURN 
8700 REM 

8710 LET aS="Startadresse eingeb 
en:": GO SUB 9000: IF end THEN R 
ETURN 

8720 GO SUB 8500 in Wert umwandeln 

8730 RETURN 

9Ö1Ö INPUT (a$+" "); LINE aS: LE 
T end=NOT LEN a$ 

9020 FOR x — 1 TO LEN a$: LET aS(x 
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)=CHR$ (CODE a$(x)-32*(a*(s<) >="a 
")): NEXT x 
9030 RETURN 


9100 REM 


m 


=hex 


4 Leerräume 


9110 L.ET h$=" GO TO 9130 2 Leerräume 

9120 LET h$=" " 

9130 LET h 1 ==h: FOR x=LEN h$ TO 1 
STEP -1: LET xl=hl-INT (hl/16)* 

16: LET h*(x)=CHR* (xl+CODE "0" + 

7* (:< 1 >9) ) : LET hl = INT (hl/16): N 
EXT x 


9140 RETURN 


9999 STOP 


Bildschirm-Werkzeug 


Dieser Anhang enthält das vollständige Assembler-Quellpro¬ 
gramm für eine Bildschirm-Werkzeugtasche zum Gebrauch mit 
dem Spectrum. Die Werkzeugtasche verschafft Ihnen die Mög¬ 
lichkeit, an jeder Stelle auf dem Bildschirm anzuzeigen, nach 
links, nach rechts, nach oben und unten abzurollen. Die Scrol¬ 
ling-Routinen sind darin etwas Besonderes, daß sie jeweils eine 
Pixelreihe statt einer ganzen Zeichenreihe abrollen. Das er¬ 
weckt den Eindruck völlig gleichmäßiger Bewegung, etwas, das 
Sie mit dem Abrollen ganzer Zeichenreihen nicht erreichen kön¬ 
nen. 

Die Routine kann im RAM überall gesetzt werden, weil sie sich 
nicht auf absolute Adressen stützt. Das bedeutet, daß die Routi¬ 
ne bei einem 16K-Spectrum ebenso läuft wie bei einem mit48K. 
Damit das möglich ist, mag ein Teil des Codes in der Subroutine 
mit Beginn Symboladresse “PCALC:” allzu kompliziert ausse- 
hen. 

Bevor Sie die Routine laden, sollten Sie die Adresse von RAM- 
TOP heruntersetzen, um genügend Raum dafür zu schaffen. Bei 
einem Spectrum 48K könnten Sie CLEAR 64999 nehmen (wo¬ 
mit die Routine bei 65000 beginnt), während beim Spectrum 
16K CLEAR 32599 in Frage kommt. In diesem Fall beginnt die 
Routine bei 32600. 

Es gibt zwei Hauptwege, die Routine einzugeben: 

1. Den Assemblierer verwenden. Geben Sie das Assembler- 
Quellprogramm (nicht die Spalten mit den Überschriften 
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“Addr" oder “Hex") entweder direkt in ZXASM ein oder 
durch Verwendung von Autoscan. Einzelheiten siehe bei 
ZXASM. 

2. Eingabe des Hexcodes. Verwenden Sie das Programm 
ZXMCMON und geben Sie die Hexcodierung aus der Spalte 
mit der Überschrift "Hex" ein. Wenn Sie diese Methode ver¬ 
wenden, prüfen Sie in verschiedenen Abständen, daß die auf 
dem Bildschirm gezeigte laufende Adresse mit der unten im 
Listing stehenden übereinstimmt. 

In beiden Fällen sichern Sie, wenn die Routine schließlich über 
RAMTOP geladen ist, auf Band mit dem Befehl: 

SAVE "TOOLKIT” CODE xxxx, 256 
Dabei steht xxx für die Adresse, wo Sie laden wollen - entweder 
32600 oder 65000. 

Im Gebrauch funktioniert die Routine so: 

1 .Ein Zeichen auf dem Bildschirm anzeigen: 

POKE 23681, CODE “x” (Code des anzuzeigenden 

Zeichens) 

POKE 23728, col (Spaltennummer Bildschirm) 

POKE 32729, row (Reihennummer Bildschirm) 

RANDOMIZE USR xxxx (xxxx = 65000 oder 32600) 


2. Abrollen 
POKE 23681, n 

RANDOMIZE USR 
(xxxx +2) 
RANDOMIZE USR 
(xxxx +4) 
RANDOMIZE USR 
(xxxx +6) 
RANDOMIZE USR 


(n für Zahl der abzurollenden 
Pixelreihen. 0 < n < 256) 

(nach links abrollen) 

(nach unten abrollen) 

(nach oben abrollen) 


(xxxx +8) (nach rechts abrollen) 

10 REM Tool Kit Vorführung 
20 PPOLE 23681, CODE “*" 

30 FOR y = 8 TO 13: FOR x = 13 TO 17: POKE 
23728, x: POKE 23729, y: RANDOMIZE USR 32600: 
NEXT x: NEXT y 

40 FOR x = 1 TO 16: POKE 23681, x 
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50 RANDOMIZE USR 65008 
60 RANDOMIZE USR 65006 
70 RANDOMIZE USR 65002 
80 RANDOMIZE USR 65004 
90 NEXT x 

100 POKE 23681,160: RANDOMIZE USR 65008 
110 STOP 
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Anhang A ■ Bildschirm ■Werkzeug 


ADDR HEK 

OP 

OPERAND 

AIDDR HEX 

C«P CffERAND 



CHARS: 

EQU 23606 

EA94 4F 

LD C, A 



UDG: 

EQU 23675 

EA95 0608 

LD B, 8 



SPAREI 

: EQU 23681 


PRNTLP: 



SPARE2 

: EQU 23728 

EA97 7E 

LD A, (HL) 



PFLAG: 

EQU 23697 

EA98 CB59 

BIT 3,C 



PCLOAD: EQU 52H 

EA9A 2801 

JR Z,NOTINV 

EA60 

1808 

JR 

PRNTCH 

EA9C 2F 

CPL 

EA62 

183F 

JR 

SCRLL 


NOTINV: 

EA64 

185A 

JR 

SCRLUP 

EA9D 12 

LD (DE),A 

EA66 

185A 

JR 

SCRLDN 

EA9E 23 

INC HL 

EA68 

185A 

JR 

SCRLRT 

EA9F 14 

INC D 



PRNTCH: 

EAA0 10F5 

DJNZ PRNTLP 

EA6A 

3A815C 

LD 

A,(SPAREI) 

EAA2 C9 

RET 

EA6D 

ED4BB05C 

LD 

BC,(SPARE2) 


SCRLL: 



XPRISTT: 


EAA3 3A815C 

LD A, (SPAREI) 

EA71 

FE80 

CP 

80H 

EAA6 4F 

LD C, A 

EA73 

3807 

JR 

C, NOTUG 


LCRCW: 

EA75 

D690 

SUB 

90H 

EAA7 21FF3F 

LD HL,3FFFH 

EA77 

2A7B5C 

LD 

HL,(UDG) 

EAAA 06C0 

LD B,192 

EA7A 

1806 

JR 

PRNTAL 


LSCRN: 



NOTUG: 


EAAC 112000 

LD DE,32 

EA7C 

2A365C 

LD 

HL,(CHARS) 

EAAF 19 

ADD HL,DE 

EA7F 

24 

INC 

H 

EAB0 E5 

PUSH HL 

EA80 

D620 

SUB 

20H 

EAB1 AF 

XOR A 



PRNTAL: 


LROW: 

EA82 

EB 

EX 

DE, HL 

EAB2 7E 

LD A, (HL) 

EA83 

6F 

LD 

L,A 

EAB3 17 

RLA 

EA84 

2600 

LD 

H, 0 

EAB4 77 

LD (HL),A 

EA86 

29 

ADD 

HL,HL 

EAB5 2B 

DEC HL 

00 

29 

ADD 

HL, HL 

EAB6 ID 

DEC E 

EA88 

29 

ADD 

HL,HL 

EAB7 20F9 

JR NZ, LROW 

EA89 

19 

ADD 

HL, DE 

EAB9 El 

POP HL 

EA8A 

AF 

XOR 

A 

EABA 10F0 

DJNZ LSCRN 

EA8B 

FE 

DI 


EABC 0D 

DEC C 

EA8C 

CD5200 

CALL 

PCLOAD 

EABD 20E8 

JR NZ, LCROW 

EA8F 

184C 

JR 

PCALC 

EABF C9 

RET 

EA91 

3A915C 

LD 

A,(PFLAG) 


SCRLUP: 
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Anhang A - Bildschirm Werkzeug 


ADDR HEX 

OP 

OPERAND 

ADDR HEX 

OP 

OPERAND 

EAC0 

1837 

JR 

SCRLU2 

EAEC Fl 

POP 

AF 



SCRLDN: 

EAED 82 

ADD 

D 

EAC2 

1864 

JR 

SCELD2 

EAEE 57 

LD 

D,A 



SCRLRT: 

EAEF 78 

LD 

A,B 

EAC4 

3A815C 

LD 

A, (SPAREI) 

EAF0 E607 

AND 

7 

EAC7 

4F 

LD 

C, A 

EAF2 0F 

RRCA 




RCRCW 


EAF3 0F 

RRCA 


EAC8 

210040 

LD 

HL,4000H 

EAF4 0F 

RRCA 


EACB 

08C0 

LD 

B, 192 

EAF5 81 

ADD 

C 



RSCRN 


EAF6 5F 

LD 

E,A 

EACD 

1E20 

LD 

E, 32 

EAF7 Fl 

POP 

AF 

EACF 

AF 

XOR 

A 

EAF8 C9 

RET 




RROW: 



SCRLU2: 

EAD0 

7E 

LD 

A,(HL) 

EAF9 3A815C 

LD 

A,(SPAREI) 

EAD1 

1F 

RRA 


EAFC 47 

LD 

B,A 

EAD2 

77 

LD 

(hl),a 


NXTSU: 


EAD3 

23 

INC 

HL 

EAFD C5 

PUSH 

BC 

EAD4 

ID 

DEC 

E 

EAFE AF 

XOR 

A 

EAD5 

20F9 

JR 

NZ, RROW 

EAFF 47 

LD 

B,A 

EAD7 

10F4 

DJNZ 

RSCRN 

EB00 4F 

LD 

C,A 

EAD9 

0D 

DEC 

C 


NXTLU: 


EADA 

20EC 

JR 

NZ, RCRCW 

EB01 F3 

DI 


EADC 

C9 

RET 


EB02 CD5200 

CALL 

PCLOAD 



PCALC 


EB05 18D6 

JR 

PCALC 

EADD 

3B 

DEC 

SP 

EB07 3C 

INC 

A 

EADE 

3B 

DEC 

SP 

EB08 FE08 

CP 

8 

EADF 

E3 

EX 

(SP),HL 

EB0A 3807 

JR 

C,SROW 

EAE0 

23 

INC 

HL 

EB0C 04 

INC 

B 

EAE1 

23 

INC 

HL 

EB0D 78 

LD 

A, B 

EAE2 

E3 

EX 

(SP),HL 

EB0E FE18 

CP 

24 

EAE3 

FB 

EI 


EB10 3012 

JR 

NC,UPDONE 

EAE4 

F5 

PUSH AF 

EB12 AF 

XOR 

A 

EAE5 

F5 

PUSH 

AF 


SROW: 


EAE6 

78 

LD 

A,B 

EB13 EB 

EX 

DE, HL 

EAE7 

E618 

AND 

18H 

EB14 F3 

DI 


EAE9 

F640 

OR 

40H 

EB15 CD5200 

CALL 

PCLOAD 

EAEB 

57 

LD 

D,A 

EB18 18C3 

JR 

PCALC 
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Anhang A -Bildschirm - Werkzeug 


ADDR HEX 

OP OPERAND 

ADDR HEX 

OP 

OPERAND 


EB1A 

EB 

EX DE,HL 

EB4F 012000 LD 

BC, 32 


EB1B 

C5 

PUSH BC 

EB52 EDB0 

LDIR 



EB1C 

012000 

LD BC,32 

EB54 CI 

POP 

BC 


EB1F 

EDB0 

LDIR 

EB55 18DC 

JR 

NXTLD 


EB21 

CI 

POP BC 


DNDONE: 


EB22 

18DD 

JR NXTLU 

EB57 CI 

POP 

BC 




UPDONE: 

EB58 10D2 

DJNZ 

NXTSD 


EB24 

CI 

POP BC 

EB5A C9 

RET 



HB25 

10D6 

DJNZ NXTSU 





EB27 

C9 

RET 

Symbols: 






SCRLD2: 

CHARS 

5C36 

UDG 

5C7B 

EB28 

3A815C 

LD A, (SPAREI) 

SPAREI 

5C81 

SPARE2 

5CB0 

EB2B 

47 

LD B, A 

PFLAG 

5C91 

PCLOAD 

0052 



NXTSD: 

MENU 

EA60 

PRNTCH 

EA6A 

EB2C 

C5 

PUSH BC 

XPRNT 

EA71 

NOTUG 

EA7C 

EB2D 

3E07 

LD A, 7 

PRNTAL 

EA82 

PRNTLP 

EA97 

EB2F 

0617 

LD B,23 

NOTINV 

EA9D 

SCRLL 

EAA3 

EB31 

0E00 

LD C,0 

LCROW 

EAA7 

LSCRN 

EAAC 



NXTLD: 

LROW 

EAB2 

SCRLUP 

EAC0 

EB33 

F3 

DI 

SCRLDN 

EAC2 

SCRLRT 

EAC4 

EB34 

CD5200 

CALL PCLOAD 

RCROW 

EAC0 

RSCRN 

EACD 

EB37 

18A4 

JR PCALC 

RRCW 

EAD0 

PCALC 

EADD 

EB39 

EB 

EX DE,HL 

SCRLU2 

EAF9 

NXTSU 

EAFD 

EB3A 

3D 

DEC A 

NXTLU 

EB01 

SRCW 

EB13 

EB3B 

FEFF 

CP 0FFH 

UPDONE 

EB24 

SCRLD2 

EB28 

EB3D 

2008 

JR NZ,SDRCW 

NXTSD 

EB2C 

NXTLD 

EB33 

EB3F 

05 

DEC B 

SDROW 

EB47 

DNDONE 

EB57 

EB40 

78 

LD A,B 





EB41 

FEFF 

CP 0FFH 





EB43 

2812 

JR Z, DNDONE 





EB45 

3E07 

LD A, 7 







SDRCW: 





EB47 

F3 

DI 





EB48 

CD5200 

CALL PCLOAD 





EB4B 

1890 

JR PCALC 





EB4D 

EB 

EX DE,HL 





EB4E 

C5 

PUSH BC 
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ZX-SPECTRUM-POWER 


„Wir haben von jedem Programm eine funktio¬ 
nierende Version hergestellt und diese bis zur 
völligen Zerstörung getestet.“ So beschreibt 
Trevor Toms das System der radikalen Gründ¬ 
lichkeit und Vollständigkeit, mit der er sein 
SPECTRUM-BUCH angelegt hat, ein definitives 
Handbuch zum SINCLAIR SPECTRUM, ein 
Werk, das den ganzen Spaß und Nutzen dieses 
Micro-Computers erschließt und auch für 
erfahrene SPECTRUM-Benutzer keine Lücke 
offen läßt. Toms: „Manche der hier gebotenen 
Instrumente und Programme können sogar 
verwendet werden, ohne daß man ihren Zweck 
verstehen muß!“ 

DAS SPECTRUM-BUCH gliedert sich in einen 
Teil mit Spaß-, Spiel- und Nutzprogrammen in 
BASIC, wobei es neben den einfachen, schnell 
zu realisierenden Programmen auch große, zeit¬ 
aufwendige Programme gibt, und in einen 
MASCHINENCODE-Teil, der dem SPECTRUM- 
Benutzer klarmacht, welche Zukunft er mit 
seinem Gerät erleben kann: hier wird es im 
Umgang mit ZXASM (Symbolischer Assemblie¬ 
rer), ZXDISAM (Symbolischer Disassemblierer) 
und ZXMCMON (Maschinencode-Monitor) 
wirklich aufregend. Ein hochwillkommener 
Service-Teil BILDSCHIRM-WERKZEUGE enthält 
das vollständige Assembler-Quellprogramm für 
eine Bildschirm-Werkzeugtasche zum Gebrauch 
mit dem Spectrum. 

Mit Recht darf der Autor feststellen, daß der 
Fortschritt von vorangegangenen ZX-Hand- 
büchern zum SPECTRUM-BUCH so gewaltig ist 
wie der vom ZX81 zum ZX SPECTRUM. 



ISBN 3-1 9-008207-3 Hueber Software 


